Ввести информацию по 10 спортсменам (ФИО, рост, вес), определить количество людей, чей вес превышает 70 кг — Pascal(Паскаль)

Program zap_3;

Const
  n = 10;

Type
  sportsmen = record
    fio: string[40];
    rost: real;
    ves: integer;
  end;

Var
  sp: sportsmen;
  i, j, kol, s: integer;
  sr: real;

Begin
  kol := 0;
  With sp do
    For i := 1 to n do
    begin
      Write(' введите ФИО ', i, ' ');
      Readln(fio);
      write('введите рост: ');
      Readln(rost);
      write('введите вес: ');
      Readln(ves);
      if ves > 70 then
        kol := kol + 1;
    end;
  writeln(' количество спортсменов, чей вес превышает ', kol);
  Readln;

end.