нумерацыя строк в текстовом файле...

procedure create(var f:text);
var s:string;
begin
  writeln('Vvedit nazvy faila');
  readln(s);
  assign(f,s);
  rewrite(f);
end;
procedure vuvid(s:string; var f:text);
var buf:string;
begin
Assign(f,s);
reset(f);
  while not eof(f) do
  begin
     readln(f,buf);
     writeln(buf);
  end;
end;
procedure proc(s:string; var f:text);
var f2:text;
s2, buf, buf2:string;
i:integer;
begin
  if ioresult=0 then
  begin
  assign(f,s);
     reset(f);
  if ioresult=0 then
    begin
     create(f2);
        while not eof(f) do
        begin
          readln(f,buf);
          writeln(f2,buf);
        end;
        rewrite(f);
        i:=1;
        reset(f2);
        while not eof(f2) do
        begin
          readln(f2,buf);
          str(i,buf2);
          buf2:=buf2+') '+buf;
          writeln(f,buf2);
          inc(i);
        end;
      end;
  end;
  close(f);
  close(f2);
  erase(f2);
end;
 
var f:text;
name:string;
Begin
writeln('Vvedit ima faila');
readln(name);
proc(name, f);
writeln('        Rezultat');
vuvid(name,f);
close(f);
End.