Задачка про спортсменов, задача на запись Опции

[Lilu]

Здравствуйте! Помогите найти ошибку. Есть задача про спортсменов. Информацию о каждом спортсмене нужно оформить в виде записи. Совокупность записей объединить в массив. Программа должна выводить спортсменов, не получивших ни одной награды.
Написала код. Все сделала по аналогичной задаче из методички. В итоге программа вылетает при попытке ввести данные (фамилия, имя...) с ошибкой 106 invalid numeric format. Много раз все перепрорверяла, в чем проблема в упор не вижу.
Вот сам код:

Uses Crt;
Type
sportsmeni=record
      fam : string [10];
      name : string [10];
      str: string [10];
      avto: integer;
      nagr: integer;
      rez: integer
    end;
Var
  I,n,a,j : integer;
  Massiv : array[1..100] of sportsmeni;
procedure Poisk;
Begin
  for i:=1 to n do
    if massiv[i].nagr=0
      then
        with massiv[i] do
          writeln(fam, ' ', name, ' ', str, ' ', avto, ' ', rez);
End;
Begin
  ClrScr;
  writeln('vvedite chislo sportsmenov ');
  write('->');
  read(n);
  for i:=1 to n do
    begin
      writeln('vvedite cherez probel familiu, imya, strany, nomer avto, rezultat, kol nagrad ');
      write('->');
      with massiv[i] do
        begin
          readln(Fam, name, str, avto, rez, nagr);
          write('vvedite kolichestvo nagrad ->');
          read(nagr);
        end;
    end;
  writeln('ne imeut nagrad:');
  writeln('---------------------------------');
  Poisk;
  ReadKey;
End.