Создайте текстовый файл p, разбитый на непустые строки. составьте программу, которая построчно печатает содержимое файла, оставляя в начало каждой печатаемой строки ее порядковый номер(он должен занимать 4 позиции) и пробел - Pascal(Паскаль) - Справочник юного программиста Pascal/Delphi

var
f:text of file;
k:integer;
s:string;
begin
reset(f);
k:=0;
while not eof(f) do
 begin
 readln(f,s);
 k:=k+1;
 writeln(k:4,' ',s);
 end;
end.