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

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.

f1,f2: file of krug;

program practice;
var
x1, y1, x,  s,y: real;
N, i, k: integer;
f: file of real;
procedure circle(var x1, y1, x, y: real; var i: integer);
begin
Randomize;
x := 0.0*random;
y := 10.1*random;
writeln('Центр окружности O=[', x:1:1, ';', y:1:1, '];');
x1 := 0.0*random;
y1 := 5.0*random;
writeln(' Радиус r=[', x1:1:1, ';', y1:1:1, '].');
end;
begin
assign (f, 'input.txt');
rewrite(f);
write('Введите число кругов:');
readln(N);
k := 1;
for i := 1 to N do
begin
write(k, ')');
circle(x, y, x1, y1, i);
writeln('');
k := k + 1;
end;
while not eof(f) do
 
writeln(s);
close(f);
end.