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

[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.

[klem4]

А ты уверен что в входном файле, в конце нету пустых строк ?

Сообщение отредактировано: klem4 - 14.04.2006 6:56