Проблема с Паскалем пропускает ввод

[Veor12]

Здраствуйте, я в програмировании совсем новичек, и вроде вот решил решить маленькую и вроде простую задачу.
Суть в чем:
Идут соревнования в которых участвуют n гонщиков и каждый делает по m заездов. Вводятся m n имя гонщика и время каждого заезда для отдельно взятого гонщика. найти и вывести имя гонщика который прошел трассу за минимальное время( сумма всех заездов наименьшая).
я составил программу

program sorevnovania_kartingistov;
 type uch = record
     name : string [25];
     rb : array [1..19] of byte;
 end;

 var
 c,j,i,n,m:integer;
 a:array[1..100] of uch;


begin
c:=0;
 Readln (n, m); {zapolnenie masiva}
 for i:=1 to n do
  begin
   with a[i] do
    begin
     read (name);
     writeln ('name',i,'=',name);
     for j:=1 to m do
      begin
       read (rb[j]);
       if j>1 then rb[1]:=rb[1]+rb[j];
       write('vrema',j,'=',rb[j]);
      end;
    end;
  for j:=1 to n do
  if a[1].rb[1] > a[j].rb[1] then
    begin
     c:=j;
     a[1].rb[1]:=a[j].rb[1];
    end;
 Write (a[c].name);
end;
end.

И вроде как по записи, ошибок не нашел, но проблема в том что я ввожу к примеру
2 2
Стасик
2 1
Лемза и тут по идее все должно быть хорошо но он не считывает 2-ого гонщика а идет сразу к его результатам.
В чем проблемиа и что делать?


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Alex11223]

но он не считывает 2-ого гонщика

кого не считывает? после
2 2
Стасик
сразу переходит к результатам? или как?
И используйте тег [CODE] (значок # ) для сохранения форматирования и подсветки кода в сообщении. Кнопка Правка снизу справа.

[Vanta11a]

В этом куске кода:

for i:=1 to n do
begin
with a[i] do
begin
read (name);
writeln ('name',i,'=',name);
for j:=1 to m do
begin
read (rb[j]);
if j>1 then rb[1]:=rb[1]+rb[j];
write('vrema',j,'=',rb[j]);
end;
end;

Begin`ов три, а end`ов - два. Не тут ли косяк?

[iCaesy]

Добавьте end; и посмотрите)