Программа

{ Нумерация и определение длин 
  строк файла }
Program Denis_6;
Var f,g:text;      { Файловые переменные }
    Buf:string;    { Буферная переменная для копирования файла по строкам }
    Meter:integer; { Счетчик строк }
BEGIN
  Meter:=0;            { Обнуление счетчика строк }
  Assign(f,'f');       { Связывание файловой переменной f с файлом 'f'}
  Assign(g,'g');       { Связывание файловой переменной g с файлом 'g'}
  Reset(f);            { Открытие файла для чтения }
  Rewrite(g);          { Открытие файла для записи }
  while not EOF(f) do  { Цикл просмотра файла }
    Begin
      Inc(Meter);                        { Подсчет номера считываемой строки }
      ReadLn(f,Buf);                     { Чтение строки }
      WriteLn(g,'[',Meter,' ',Length(Buf),'] ',Buf) { Запись строки в файл }
    End;
  Close(f);      { Закрытие файла }
  Close(g);      { Закрытие файла }
END.