Иероглифы в файле вывода

program types;
uses crt;
type
     digit = 100..100000;
     letter = (A,B,C);
 
     tanketa = record
     tcode:digit;
     tfio:string[40];
     tposition:letter; end;
 
const
     vivod = 'anketa.out';
     vvod = 'anketa.in';
 
var
     anketa:array of tanketa;
     f:file of tanketa;
     t:text;
     k,i,j,bk,p1,p2:byte;
     s,ss:string;
begin
clrscr;
assign(t, vvod); reset(t);
//============================= [ VVOD ] ===================================
readln(t,k); setlength(anketa,k);
for i:=1 to k do begin p1:=0; p2:=0; readln(t,s); bk:=length(s);
for j:=1 to bk do begin if s[j]=' ' then begin
 if p1>0 then p2:=j else p1:=j; end; end;
ss:=copy(s,1,p1-1); val(ss,anketa[i-1].tcode);
if s[p2+1]='A' then anketa[i-1].tposition:=A;
if s[p2+1]='B' then anketa[i-1].tposition:=B;
if s[p2+1]='C' then anketa[i-1].tposition:=C;
anketa[i-1].tfio:=copy(s,p1+1,p2-p1-1); end; close(t);
//===========================================================================
assign(f,vivod); rewrite(f);
for i:=0 to k-1 do write(f,anketa[i]); close(f); // VIVOD
 
writeln('SUCCESSFULLY!');
readln; end.

program types;
 
uses crt;
 
type
  digit = integer;
  letter = (A, B, C);
  
  tanketa = record
    tcode: digit;
    tfio: string[40];
    tposition: letter; end;
 
const
  vivod = 'anketa.out';
  vvod = 'anketa.in';
 
var
  anketa: array of tanketa;
  f: file of tanketa;
  t: text;
  k, i, j, bk, p1, p2: byte;
  s, ss: string;
  err: integer;
 
begin
  clrscr;
  assign(t, vvod);reset(t);
  //============================= [ VVOD ] ===================================
  readln(t, k);setlength(anketa, k);
  for i := 1 to k do 
  begin
    p1 := 0;p2 := 0;readln(t, s);bk := length(s);
    for j := 1 to bk do 
    begin
      if s[j] = ' ' then begin
        if p1 > 0 then p2 := j else p1 := j; end; end;
    ss := copy(s, 1, p1 - 1);
    val(ss, anketa[i - 1].tcode, err);
    if s[p2 + 1] = 'A' then anketa[i - 1].tposition := A;
    if s[p2 + 1] = 'B' then anketa[i - 1].tposition := B;
    if s[p2 + 1] = 'C' then anketa[i - 1].tposition := C;
    anketa[i - 1].tfio := copy(s, p1 + 1, p2 - p1 - 1); end;close(t);
  //===========================================================================
  assign(f, vivod);rewrite(f);
  for i := 0 to k - 1 do write(f, anketa[i]);close(f); // VIVOD
  
  writeln('SUCCESSFULLY!');
  readln; end.