44 lines
775 B
ObjectPascal
44 lines
775 B
ObjectPascal
program LongestStringChallenge_2(input, output);
|
|
|
|
{$mode ObjFPC}
|
|
{$rangechecks on}
|
|
|
|
uses
|
|
SysUtils;
|
|
|
|
var
|
|
Line: ANSIstring;
|
|
Lines: array of ANSIstring;
|
|
position: integer;
|
|
tester: char;
|
|
|
|
begin
|
|
if not eoln(input) then
|
|
begin
|
|
readln (line);
|
|
position := 0;
|
|
setlength(lines, 1);
|
|
lines[0] := line;
|
|
while not eoln(input) do
|
|
begin
|
|
readln (line);
|
|
try
|
|
tester := lines[0][length(line)];
|
|
try
|
|
tester := line[length(lines[0])];
|
|
inc(position);
|
|
setlength(lines, succ(position));
|
|
lines[position] := line;
|
|
except
|
|
end;
|
|
except
|
|
position := 0;
|
|
setlength(lines, 1);
|
|
lines[0] := line;
|
|
end;
|
|
end;
|
|
for position := low(lines) to high(lines) do
|
|
writeln (lines[position]);
|
|
end;
|
|
end.
|