Подскажите как сделать таблицу лидеров для игры ''быки и коровы'' в текстовый файл

var a,b:array[1..4] of integer;
c:set of byte;
fio:string;
i,j,k,n,f,r,l,p:integer;
F1:text;
begin
 assign(F1,'D:\Саша\Информатика\leader board.txt');
writeln('введите своё имя');
readln(fio);Append(f1);
write(f1,fio);
 writeln('Введите четырёх-значное число. ');
 writeln('Цифры в числе не должны повторятся!');
l:=0;
while l=0 do
 begin
 for i:=1 to 4 do
  a[i]:=random(10);
  if  (a[1]=a[2]) or
      (a[1]=a[3]) or
      (a[1]=a[4]) or
      (a[2]=a[3]) or
      (a[2]=a[4]) or
      (a[3]=a[4]) then
continue
 else
  l:=1;
 end;
for i:=1 to 4 do
c:=c+[a[i]];
p:=0;
   while f=0 do
  begin
   p:=p+1;
   n:=0;
   k:=0;
 
 readln(r);
     b[1]:=r div 1000;
     b[2]:=r div 100 mod 10;
     b[3]:=r mod 100 div 10;
     b[4]:=r mod 10;
 for i:=1 to 4 do
if a[i]=b[i] then
   k:=k+1;
  for i:=1 to 4 do
if b[i] in c then
   n:=n+1;
if (k=4) and (n=4) then
   f:=1;
   writeln('быки ',k,'  коровы ',n);
end;
   writeln('Вы победили!');
   writeln('Вы сделали ',p,' попыток');
   writeln(f1,'   ',p);
      close(f1);
end.

const
  recName = 'records.txt';
  
type
  TOP = record
    fio : String;
    steps : Integer;
    
    constructor (s : String);
    begin
      fio   := s.ToWords('¤')[1];
      steps := s.ToWords('¤')[0].ToInteger;
    end;
    
    constructor (steps : Integer; fio : String);
    begin
      Self.fio   := fio;
      Self.steps := steps;
    end;
    
    function ToString : String := $'{steps}¤{fio}';
  end;
 
procedure records(fio : String; steps : Integer);
begin
  var a := arr(New TOP(steps, fio));
  if System.IO.File.Exists(recName) then
    a := a + ReadAllLines(recName).Select(s->New TOP(s)).ToArray;
  a := a.OrderBy(r->r.steps).ToArray;
  if a.Length>10 then a:=a[:10];
  var s := a.Select(r->r.ToString).ToArray.JoinToString(NewLine);
  WriteAllText(recName, s);
  
  'Лучшие результаты:'.Println;
  var(b,n):=(False,0);
  foreach var t in a do
    begin
      n += 1;
      s := $'{n,2} : {t.fio,-30} - {t.steps}';
      if not b and (t.fio=fio) and (t.steps=steps) then
        begin
          s += '  <===== это ваш результат';
          b := True;
        end;
      s.Println;
    end;
  if Not b then 'К сожалению вы не смогли войти в 10 лучших.'.Println;
end;
 
var a,b:array[1..4] of integer;
c:set of byte;
fio:string;
i,j,k,n,f,r,l,p:integer;
begin
  writeln('введите своё имя');
  readln(fio);
  writeln('Введите четырёхзначное число. ');
  writeln('Цифры в числе не должны повторятся!');
  l:=0;
  while l=0 do
    begin
      for i:=1 to 4 do
        a[i]:=random(10);
      if  (a[1]=a[2]) or
          (a[1]=a[3]) or
          (a[1]=a[4]) or
          (a[2]=a[3]) or
          (a[2]=a[4]) or
          (a[3]=a[4]) then
        continue
      else
        l:=1;
    end;
  for i:=1 to 4 do
    c:=c+[a[i]];
  WriteLn(c);
  p:=0;
  while f=0 do
    begin
      p:=p+1;
      n:=0;
      k:=0;
      readln(r);
      b[1]:=r div 1000;
      b[2]:=r div 100 mod 10;
      b[3]:=r mod 100 div 10;
      b[4]:=r mod 10;
      for i:=1 to 4 do
        if a[i]=b[i] then
          k:=k+1;
      for i:=1 to 4 do
        if b[i] in c then
          n:=n+1;
      if (k=4) and (n=4) then
        f:=1;
      writeln('быки ',k,'  коровы ',n);
    end;
  writeln('Вы победили!');
  writeln('Вы сделали ',p,' попыток');
 
  records(fio, p);
end.