Работа с файлами

Нам дан текстовый файл с записанными в него строками, состоящими из нескольких элементов. Нам нужно эти строки целиком вывести на экран, не теряя пробелов внутри строк. Была мысль через статический массив - прокатило. Как сделать через динамический массив и есть ли другие (вдруг я проморгала) способы это сделать?

Код для статического массива:

var r:text;
assign (r,'reliz.txt');
reset (r);
for i:=1 to 9 do
begin
readln (r,u[i]);
writeln (u[i]);
writeln ();
end;
close (r);

Доброе утро! А зачем вам вообще нужен какой-либо массив? Данная задача не требует их использования.

begin
  var r: text;
  assign(r, 'reliz.txt');
  reset(r);
  while not eof(r) do
  begin
    var s : string;
    readln(r, s);
    writeln(s);
  end;
  close(r);
end.

Большое спасибо за этот способ!

Вот эквивалентный код:

ReadLines(‘a.txt’).Print(NewLine)

1 лайк