Pascal. создайте программу для считывания типизированого файла и вывода информации на экран

Uses crt;
var s: string; f: text;
begin
clrscr;
  assign(f,'text.txt');
  reset(f);
  while not eof(f) do
  begin
  readln(f,s);
  writeln(s);
  s:='';
  end;
end.