Программа считывает строки и затем выводит самые длинные строки. Если их несколько, то выводятся все — Pascal(Паскаль)

program fifty_two;
uses crt;
var
mas:Array[1..5]of String;
i:Byte;
begin
clrscr;
writeln('Введите строки:');
for i:=1 to 5 do
begin
write('Строка №',i,': ');
readln(mas[i]);
end;
writeln;
writeln('Саммые длинные строки введённого массива:');
writeln;
for i:=2 to 5 do
 begin
 if Length(mas[1])=Length(mas[i]) then writeln(mas[i]);
 if Length(mas[1])<Length(mas[i]) then mas[1]:=mas[i];
end;
writeln(mas[1]);
readln;
end.