Файлы, Ошибка в коде... Опции

[Clerick]

Дали след. задачу: дан файл с неизвестным кол-вом строк, нужно в начало каждой строки поставить кол-во символов, а в конец файла кол-во строк. Первую часть я вроде сделал, а вот со второй никак... Помогите найти ошибку!!! Заранее благодарен!!!

uses crt;
var a:array [1..100] of string[105];
i,j,m,k:integer;
s:string;
f:text;
       begin
        assign (f,'chukcha.txt');
        reset (f);
         begin
          repeat
           readln (f, a[i]);
           i:=i+1;
           j:=j+1;
          until eof(f);
         end;
 close(f);

 for i:=1 to j do begin
  m:=length(a[i]);
  str(m, s);
  insert (s, a[i], 1);
  end;

rewrite (f);
 for k:=1 to j do
 begin
  Writeln(f, a[k]);
 end;
 Write (f,j);

  close (f);
  end.

[volvo]

дан файл с неизвестным кол-вом строк

Так может лучше обойтись БЕЗ массива? Ведь количество строк может быть и больше размерности массива...

var
  j: integer;
  s: string;
  f, f_out: text;

begin
  assign(f,'f.txt'); reset (f);
  assign(f_out, 'tmp.txt'); rewrite(f_out);

  j := 0;
  while not eof(f) do begin
    readln(f, s); inc(j);
    writeln(f_out, length(s), ' ' + s);
  end;
  writeln(f_out, j);

  close(f); close(f_out);
  erase(f); rename(f_out, 'f.txt');
end.

Будет работать, если в файле нет строк длиннее 255 символов...