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

[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.

[Krjuger]

Все дело в том,что вы в числовую переменную пытаетесь записать не число.Это вызвано тем,что у вас в одной строке используются и string и числовые переменные.В итоге, что делает readln, он записывает первые 10 символов в фамилию потом 10 символов в имя и 10 символов в страну,а потом пытаеться считать числа.Почему же так все просиходит?Потому что пробел при записи в String не является разделителем,а выступает в роли символа,который записывается в стринг,поэтому записть идет до конца переменной,тобишь все 10 символов.В итоге, если ввести такую строку:
Petrov Ivan Russia 123 32 2
,то он будет записывать следующим образом фамилия Petrov Iva имя an Russia страна 123 32 2 и потом будет конец строки,который он попытается записать в числовые переменные,что у него конешно же не получается и он выдает ошибку.
Есть 2 способа решить эту проблему,либо самостоятельно считать пробелы после слов,и вторым readln ом считывать числа,либо разбивать ввод на несколько этапов(для каждой переменной свой readln),можно еще написать свою процедуру ввода.

Сообщение отредактировано: Krjuger - 14.04.2012 14:04