Типизированые файлы, особенности записи Опции

[Alex7]

Дело вот вобщем в чем- написал програму, которая в конечном итоге должна записать "записи" в типизированый файл при том соблюдая внешнее оформление текста(табуляцию-типо под таблицу).
Возникла следующая проблема: после записи в файл и при дальнейшем его просмотре(что сказано в условии задачи) появляются лишние знаки табуляции(#9) а цифры не отображаются, такое ошюшение, что записаны в другой кодировке.
Вобщем прикрепляю прогу и побочный файл(для чтения).
Хелп!

[Alex7]

Сои за как-бы оффтоп, но вот вобщем чо я наполовину сделал,НО опять таки же условие не хочет работать! ХЕЛП! Мне на завтра нужно идеально закончить прогу!

Writeln('               Кол-во путевок, которые получила КАЖДАЯ школа« :');
 Write('Школа',#9);
 For z:=1 to i-1 do
   If z=1 then
    Write('№',tabl[z].nomer,#9) else
    begin
        sumkst_p:=0;
        For k:=1 to z-1 do
          If tabl[z].nomer=tabl[k].nomer then Inc(sumkst_p);
        If sumkst_p=0 then Write('№',tabl[z].nomer,#9);
    end;
 writeln;
 Write('Кол-во',#9);
 For z:=1 to i-1 do
   begin
       sumkst_p:=0;
       For k:=1 to i-1 do
         If tabl[z].nomer=tabl[k].nomer then
          begin
              sumkst_p:=sumkst_p+tabl[k].kst_p;
              tabl[k].nomer:=0;
          end;
       Write(sumkst_p,#9);
   end;

Вот. условие подсчета кол-ва путевок не работает!!!!

 Write('Кол-во',#9);
 For z:=1 to i-1 do
   begin
       sumkst_p:=0;
       For k:=1 to i-1 do
         If tabl[z].nomer=tabl[k].nomer then
          begin
              sumkst_p:=sumkst_p+tabl[k].kst_p;
              tabl[k].nomer:=0;
          end;
       Write(sumkst_p,#9);
   end;

Выводит простовсе числа подрят, не сумируя.

Сообщение отредактировано: Alex7 - 5.12.2005 1:28