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

[Alex7]

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

[Alex7]

Ясно.
Вот, вобщем после пару часиков) я таки прогу доделал, если кому интирессно, то:

Я не флужу!

program tablizja(lab9_10);
{Uses CRT;}
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
{ Clrscr;}
   for z:=1 to 25  do
   writeln;
   for z:=1 to 80 do
   Write(#205);

 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(#250);

 Writeln('’ Ўiа',#9,#9,'ЊiбжҐ §­-­­п',#9,'ь иЄ®«Ё'#9,#9,'Љ-бвм Їгв.',#9,'‚i¤Ї®ўi¤ «м­Ё©');
 writeln;
 i:=1;
 Repeat
   If i=16 then
    begin
        writeln(#9,'   Ќ вЁб­iвм ENTER ¤«п Їа®¤®ў¦Ґ­­п ўЁў®¤г в Ў«Ёжi ­  ҐЄа ­.');
        writeln(#9,#9,#9,#9,'“ў Ј !');
        write(' ЏаЁ Їа®¤®ў¦Ґ­­i i­д®а¬ ©iп, й® ­  Ї®з вЄг в Ў«Ёжi, Ўг¤Ґ §вҐав  зҐаҐ§ бЄа®««i­Ј');
        readln;
    end;
   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(#250);

 Writeln('               Љi«мЄiбвм Їгвiў®Є, пЄг ®ваЁ¬ «  Є®¦­  иЄ®« :');
 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)and(tabl[z].nomer<>0) then
          begin
              sumkst_p:=sumkst_p+tabl[k].kst_p;
              if z<>k then tabl[k].nomer:=0;
          end;
       If sumkst_p<>0 then Write(sumkst_p,#9);
   end;
 Writeln;

   for z:=1 to 80 do
   Write(#250);

 close(f2);
 Writeln('„ ­­i § ­ҐбҐ­i г д ©« ''',f2name,'''');

   for z:=1 to 80 do
   Write(#205);

 Readln;
End.