чтобы выводился весь массив

[Artur1992]

uses crt;
var F:text; s: String;
begin
assign(F,'matr.txt');
reset(F);
     readln(F,s);
writeln(s);
close(F);
end.

Мне нужно чтобы выводился весь массив, а не отдельная строка, пожалуйста помогите

[Z1000000]

uses crt;
var F:text; s: String;
begin
assign(F,'matr.txt');
reset(F);
while not eof(F) do
 begin
 readln(F,s);
 writeln(s);
 end;
close(F);
end.