Выбор строк,длина которых превышает заданную

[edmynt]

var f : text;
 s ,st: string;

begin
   WriteLn('ВВедите заданную строку: ');
   Readln(s);

   {чтение строк из файла}
writeln(s); {выведем введеную строку}
    Assign(f, 'MyFile.txt');
    Reset(f);
    while Not Eof(f) do begin
       Readln(f, st);
       {если длина строки больше заданной}
       if length(st)>length(s) then
           writeln(st); {выведем результат}
            
    end;
    Close(f);
end.

[IT-man]

А еще одна переменная то тут зачем?

[edmynt]

Как зачем?
не красиво получается, если для строки введенной и строки из файла использовать одну переменную.
PS Так будет более правельно