Заполнить текстовый файл и вывести на экран строки файла с заданными свойствами

##
var txt := 'result.txt';
(1..20).Select(i->Random(10,60000).ToString).WriteLines(txt);
println('Строки, начинающиеся с "5" :');
ReadLines(txt).Where(s->s.StartsWith('5')).PrintLines;
println('Строки, содержащие "3" :');
ReadLines(txt).Where(s->s.Contains('3')).PrintLines;

var
  f: text;
  s: string;
  i: integer;
begin
  Randomize;
  Assign(f, 'result.txt');
  Rewrite(f);
  for i := 1 to 20 do writeln(f, Random(60000-9)+10);
 
  writeln('Строки, начинающиеся с "5" :');
  Reset(f);
  while not EOF(f) do begin
    readln(f, s);
    if Pos('5',s)=1 then writeln(s);
  end;
  writeln;
 
  writeln('Строки, содержащие "3" :');
  Reset(f);
  while not EOF(f) do begin
    readln(f, s);
    if Pos('3',s)>0 then writeln(s);
  end;
  Close(f);
  readln
end.