Распечатайте анкетные данные спортсменов, занявших первые 3 места

const nmax = 100;
type dannie = record
      fam:string[20];
      im:string[15];
      strana:string[20];
      navto:string[8];
      nagrad:string[10];
      mesto:string[3];
    end;
var mas:array[1..nmax] of dannie;
    n:integer;
    f:file of dannie;
    
{********************************************} 
procedure vvod;
var i:integer;
begin
 assign(f,{Путь к вашему файлу});
 rewrite(f);
 for i:=1 to n do
 begin
  writeln('Vvedite info o ',i,' sportsmene');
  write('Familia - ');readln(mas[i].fam);
  write('Name - ');readln(mas[i].im);
  write('Strana - ');readln(mas[i].strana);
  write('Nomer avto - ');readln(mas[i].navto);
  write('Nagradi - ');readln(mas[i].nagrad);
  write('Rezultat gonki - ');readln(mas[i].mesto);
  write(f,mas[i]);  
 end;
 close(f);
end;   
{********************************************}  
procedure vivod;
var i:integer;
begin
 writeln;
 writeln('Spisok vseh sportsmenov');
 writeln('----------------------------------------------------------------------------------------');
 for i:=1 to n do
 begin
  writeln('|', mas[i].fam:21  ,'|', mas[i].im:16,     '|', mas[i].strana:21,
          '|', mas[i].navto:9 ,'|', mas[i].nagrad:11, '|', mas[i].mesto:3,'|');
 writeln('----------------------------------------------------------------------------------------');
 end;
end;
{********************************************}  
procedure top3;
var i:integer;
begin 
 writeln;
 writeln('Sportsmeni zanyvshie pervie 3 mesta');
 writeln('----------------------------------------------------------------------------------------');
 for i:=1 to n do
 begin
  if (mas[i].mesto='1') or (mas[i].mesto='2') or (mas[i].mesto='3') then
  begin
  writeln('|', mas[i].fam:21  ,'|', mas[i].im:16,     '|', mas[i].strana:21,
          '|', mas[i].navto:9 ,'|', mas[i].nagrad:11, '|', mas[i].mesto:3,'|');
  writeln('----------------------------------------------------------------------------------------');
  end;
 end;
end;
{********************************************} 
 
begin
 repeat
  write('Vvedite kolichestvo sportsmenov 1<=n<=100 ');readln(n);
 until n in [1..nmax];
 vvod;
 vivod;
 top3;
end.