Вводятся строчки. Найти самую длинную строчку и вывести её номер на

Программка написана на PascalABC.NET 3.4.2, сборка 1979 (16.02.2019), но компилироваться обязана и на обыкновенном Pascal

не обозначено, как конкретно заканчивать ввод, поэтому сделал завершение словом exit

Код

1. program task31784852;
2. var
3.  number, maxLength, maxNumber: integer;
4.  inputIsTrue: boolean;
5.  inputString, maxLengthString: string;
6. begin
7.  inputIsTrue := false;
8.  maxLength := 0;
9.  
10.  Writeln('Напишите exit, чтобы окончить ввод и получить итог');
11.  
12.  while inputIsTrue = false do
13.    begin
14.      Readln(inputString);
15.      if Length(inputString) = 0 then
16.        continue;
17.      if inputString = 'exit' then
18.        break;
19.      number := number + 1;
20.      if Length(inputString) gt; maxLength then
21.        begin
22.          maxLength := Length(inputString);
23.          maxLengthString := inputString;
24.          maxNumber := number;
25.        end;
26.    end;
27.  Writeln('Самая длинноватая строчка с номером ', number, ': ', maxLengthString);
28. end.

Проверка

Напишите exit, чтоб завершить ввод и получить итог

a

aa

aaa

aaaaaalsd

pwpefowpeofkpwef

................

...................

123462048201180301313031

znanija.com/task/31784852

exit

Самая длинноватая строчка с номером 9: znanija.com/task/31784852