Создать текстовый файл произвольного содержания. Пронумеровать строки в текстовом файле — Pascal(Паскаль)

Program text_;
uses crt;
var  f,new : Text;
     name, Stroka : string;
     i,n,s : integer;
 
Begin
clrscr;
 writeln('Имя нового файла');
 readln (name);
 assign(f,name); 
 rewrite (f); 
 writeln ('Количество строк');
 readln(n);
 writeln ('Строки');
 for i:=1 to n do
 begin
  readln (Stroka);
  writeln(f,i:2,' ',Stroka);
 end
close(f);
{Попытка пронумеровать строки}
assign(new, 'new.txt');
reset(f);
rewrite(new);
while not eof(f) do begin
while not eoln(f) do begin
 for i:=1 to n do
 read(f,s);
 write(f,s);
 writeln;write(n);
 end;
 end;
 
 
 readln;
end.