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

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

[Clerick]

Уверен! Я же ее не создаю! Кстати, когда она есть, то выводит тоже самое! И в чем ошибка???

ЗЫ: Когда в конце кода меняю след.образом все норм. работает!

...
for k:=1 to i-1 do begin 
    Writeln(f, a[k]);
  end;
  Writeln(f, j-1);
...

???

Сообщение отредактировано: volvo - 2.11.2006 19:01

[Malice]

Я думаю, что ты в своей проге исправил строку

 for i:=1 to j do begin

(кстати, не понял зачем),
а строку

 i := 1; j := 0;

забыл.