Записи. Ввести информацию по 10 спортсменам

program z;
type
    sport=record;
    f:string;
    r:real;
    w:real;
end;
var i,fl:integer;
a:array [1..10] of sport;
begin
     writeln('Ввод информации по спортсменам');
     for i:=1 to 10 do
         with a[i] do
              begin
                   writeln(i,' спортсмен');
                   write('ФИО: ');
                   readln(f);
                   write('Рост: ');
                   readln(r);
                   write('Вес: ');
                   readln(w);
              end;
     fl:=0;
     writeln('Список спортсменов, чей вес превышает 70 кг.');
     for i:=1 to 10 do
         with a[i] do
              if w>70
                 then
                     begin
                          fl:=1;
                          writeln('ФИО: ',f);
                          writeln('Рост: ',r);
                          writeln('Вес: ',w);
                     end;
     if fl=0
        then
            writeln('Таких спортсменов нет в группе!');
end.