Текстовые файлы

[mikk]

Помогите пожалуйста
Необходимо на Турбо Паскаль сделать...


Заданный текстовый файл F переписать компоненты файла F в файл H. При этом вставить в начале строки порядковый номер, а в конце строки - длину строки. Порядок компонентов сохраняется.

[ZX Spectrum-128]

{Заданный текстовый файл F переписать компоненты файла F в файл H.
При этом вставить в начале строки порядковый номер, а в конце строки -
длину строки. Порядок компонентов сохраняется.}
uses
  sysutils;
const
  n=25;
var
  f,h:text;
  i:integer;
  s:string;
begin
  {в string1.txt можно занести любой текст}
  assign(f,'string1.txt');
...
  assign(h,'string2.txt');
  reset(f);
  rewrite(h);
  i:=1;
  while not eof(f) do
    begin
      readln(f,s);
      s:=inttostr(i)+' ' +s+' '+inttostr(length(s));
      writeln(h,s);
      inc(i);
    end;
  close(f);
  close(h);
end.