Запись в файл в виде квадратиков вместо чисел

Procedure punkt3;
var 
f:file of char;
l,i,n,c,m1,m2,z,LoshadCount:Integer;
 
        max:Real;
        v:array[1..7] of integer;
        s:array[1..7] of real;
 
begin
begin
l:=0
        Randomize;
       z:=Random(5)+3;
       m1:=Random(4)+2;
        m2:=Random(5)+6;
 
begin
assign(f,'C:\Users\iDeathless\Desktop\data Racecourse\Input.txt');
rewrite(f);
write(f,m1);
write(f,m2);
close(f);
end;
 
begin
 
for i:=1 to z do
begin
 
        // Stavki
       Randomize;
        LoshadCount:=Random(6)+2;
        n:=0;
        repeat
        write('Vibirite loshad (ot 1 do ', LoshadCount,'): ');
        readln(n);
        until n in [1..LoshadCount];
 
        // Zaezd
        for i:=1 to LoshadCount do
        s[i]:=round(Random(m2-m1+1)+m1)*7;
 
        // Finish
        max:=s[1];
        for i:=2 to LoshadCount do
                if s[i]>max then max:=s[i];
 
        c:=0;
        for i:=1 to LoshadCount do
                if s[i]=max then begin
                        Inc(c);
                        v[c]:=i;
                end;
        if c=1 then begin
                c:=v[1];
        end
        else begin
        // Fotofinish
                max:=max+0.001;
                c:=Random(c)+1;
                c:=v[c];
                s[c]:=max;
        end;
 
        // Resultat
        Writeln;
        Writeln ('--------------------');
        Writeln ('      Sredniya');
        Writeln ('Loshad        skorost,        Resultat');
        Writeln ('      km/ch');
        Writeln ('--------------------');
        for i:=1 to LoshadCount do begin
                Write (' ', i, s[i]:15:3);
                if i=c then Write ('     POBEDITEL');
                Writeln();
        end;
        Writeln ('--------------------');
        Writeln;
 
        if c=n then
            begin
                Writeln ('VI VIIGRALI !!!');
            l:=l+1;
            end
        else
                Writeln ('Vi proigrali');
 
        Readln;
end;
end;
begin
assign(f,'C:\Users\iDeathless\Desktop\data Racecourse\Output.txt');
rewrite(f);
write(f,l);
write(f,z);
close(f);
end;
end;