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

[Alex7]

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

[Alex7]

Люди! ПЛИЗ! Хелп, ну!
Я не могу таки до конца грамотно разобраться!
Вот прога(та-же)

program tablizja(lab9_10);
Type stri4ka= record
               nazva: string[20];
               misze: string[20];
               nomer: byte;
               kst_p: byte;
               vidp : string[50];
              end;
Var  tabl: array[1..25] of stri4ka;
     sumkst_p,k,i,z: integer;
     f1name,f2name: string[50];
     rad: string;
     f1: text;
     f2: file of stri4ka;
Begin
 Repeat
   z:=0;
   Writeln('‚ўҐ¤вм i¬''п д ©«г'); readln(f1name);
   assign(f1,f1name);
   {$I-}
   reset(f1);
   {$I+}
   if ioresult<>0 then
      begin
         writeln('Џ®¬Ё«Є®ўҐ ўўҐ¤Ґ­­п! ” ©« ­Ґ §­ ©¤Ґ­®.');
         Inc(z);
      end;
 Until z=0;
 f2name:= Copy(f1name,1,pos('.',f1name))+'dat';
 assign(f2,f2name); rewrite(f2);

   for z:=1 to 80 do
   Write(#196);
 Writeln('’ Ўiа',#9,#9,'ЊiбжҐ §­-­­п',#9,'ь иЄ®«Ё'#9,#9,'Љ-бвм Їгв.',#9,'‚i¤Ї®ўi¤ «м­Ё©');
 writeln;
 i:=1;
 Repeat
   Readln(f1,rad); writeln(rad);
   tabl[i].nazva:= Copy(rad,1,pos(#9,rad)-1); delete(rad,1,pos(#9,rad)+1);
   tabl[i].misze:= Copy(rad,1,pos(#9,rad)-1); delete(rad,1,pos(#9,rad)+1);
   Val(Copy(rad,1,pos(#9,rad)-1),tabl[i].nomer,z); delete(rad,1,pos(#9,rad)+1);
   Val(Copy(rad,1,pos(#9,rad)-1),tabl[i].kst_p,z); delete(rad,1,pos(#9,rad)+1);
   tabl[i].vidp:= Copy(rad,1,length(rad)); delete(rad,1,length(rad));
   Write(f2,tabl[i]);
   Inc(i);
 Until seekeof(f1);
 close(f1);
   for z:=1 to 80 do
   Write(#43);
 Writeln('               Љi«мЄiбвм Їгвiў®Є, пЄг ®ваЁ¬ «  Є®¦­  иЄ®« :');
 Writeln('˜Є®« ь');
  for z:=1 to 80 do
   Write(#196);
 {For k:=1 to i-1 do
 With tabl[k] do
  Writeln(k,'   ',nazva,#9,misze,#9,nomer,#9,kst_p,#9,vidp);}
 close(f2);
 Writeln('„ ­­i § ­ҐбҐ­i г д ©« ''',f2name,'''');
 Readln;
End.

для пояснения- переменные:
kst_p -это кол-во путевок, которые получила каждая школа
sumkst_p - это кол-во путевок, которые получила каждая школа вместе(ЭТО МНЕ И НАДО СЕЦЧАС НАЙТИ)
rad -рядок(который читаем)