Неверная кодировка при записи в файл

program practice;
type krug=record
         x,y,r:real;
         end;
var f1,f2: file of krug;
    z,zmx:krug;
    n,i,k: integer;
    mx:real;
begin
randomize;
assign (f1, 'input.txt');
rewrite(f1);
writeln('Введите число кругов:');
read(N);
for i := 1 to N do
 begin
  z.x:=10.1*random;
  z.y:=10.1*random;
  z.r:=5*random;
  write(f1,z)
 end;
writeln('Содержание файла F1');
seek(f1,0);
mx:=0;
while not eof(f1) do
 begin
  read(f1,z);
  writeln('(',z.x:5:2,',',z.y:5:2,',',z.r:5:2,') ');
  if pi*sqr(z.r)>mx then
   begin
    mx:=pi*sqr(z.r);
    zmx:=z
   end;
 end;
writeln;
writeln('Самый большой круг (',zmx.x:5:2,',',zmx.y:5:2,',',zmx.r:5:2,') его площадь=',mx:0:2);
assign(f2,'output.txt');
rewrite(f2);
seek(f1,0);
k:=0;
while not eof(f1) do
 begin
  read(f1,z);
  if sqrt(sqr(z.x-zmx.x)+sqr(z.y-zmx.y))<zmx.r-z.r then
   begin
    k:=1;
    writeln(f2,z);
   end;
 end;
close(f1);
if k=0 then write('Нет кругов, полностью лежащих в самом большом круге')
else
 begin
  writeln('Содержание файла F2');
  seek(f2,0);
  while not eof(f2) do
   begin
    read(f2,z);
    writeln('(',z.x:5:2,',',z.y:5:2,',',z.r:5:2,') ');
   end;
 end;
close(f2)
end.

program practice;
uses crt;
type krug=record
         x,y,r:real;
         end;
function prin(x,y:real;k:krug):boolean;{принадлежность точки кругу}
begin
prin:=sqrt(sqr(x-k.x)+sqr(y-k.y))<=k.r;{считаем что точка на окружности принадлежит}
end;
var f1,f2: file of krug;
    z,zmx:krug;
    n,i,k: integer;
    mx,x,y:real;
begin
clrscr;
randomize;
assign (f1, 'input.txt');
rewrite(f1);
writeln('Введите число кругов:');
read(N);
for i := 1 to N do
 begin
  z.x:=10.1*random;
  z.y:=10.1*random;
  z.r:=5*random;
  write(f1,z)
 end;
writeln('Содержание файла F1');
seek(f1,0);
mx:=0;
while not eof(f1) do
 begin
  read(f1,z);
  writeln('(',z.x:5:2,',',z.y:5:2,',',z.r:5:2,') ');
  k:=0;
  x:=0;
  while x<=10 do
   begin
    y:=0;
    while y<=10 do
     begin
      if prin(x,y,z) then inc(k);
      y:=y+0.1
     end;
    x:=x+0.1
   end;
  if k>mx then
   begin
    mx:=k;
    zmx:=z
   end;
 end;
writeln;
writeln('Самую большую площадь пересечения имеет круг с параметрами');
writeln('x=',zmx.x:5:2,' y=',zmx.y:5:2,' r=',zmx.r:5:2);
{,' площадь пересечения=',mx:0:2}{это искать не будем, не спрашивают}
assign(f2,'output.txt');
rewrite(f2);
seek(f1,0);
k:=0;
while not eof(f1) do
 begin
  read(f1,z);
  if sqrt(sqr(z.x-zmx.x)+sqr(z.y-zmx.y))<zmx.r-z.r then
   begin
    k:=1;
    write(f2,z);
   end;
 end;
close(f1);
if k=0 then write('Нет кругов, полностью лежащих в самом большом круге')
else
 begin
  writeln('Содержание файла F2');
  seek(f2,0);
  while not eof(f2) do
   begin
    read(f2,z);
    writeln('(',z.x:5:2,',',z.y:5:2,',',z.r:5:2,') ');
   end;
 end;
close(f2);
readln
end.