В соревнованиях по плаванию принимали участие 5 спортсменов. Соревнования состояли из 3 заплывов. Результаты заплывов (программа Паскаль)

USES Crt;
 VAR
   RZ:ARRAY[0..3,0..5] OF INTEGER; LR:ARRAY[0..3] OF INTEGER;
   I,J:BYTE;
BEGIN
   ClrScr;   WriteLn;
   { Заполнение таблицы }
   FOR I:=1 TO 3 DO Begin
     WriteLn(' Введите результаты ',I,' заплыва');
     FOR J:=1 TO 5 DO Begin
       Write(J,' участник - ');   ReadLn(RZ[I,J]);
     End;
   End;   WriteLn;
   { Определение лучшего результата в каждом из заплывов }
   FOR I:=1 TO 3 DO Begin
     LR[I]:=RZ[I,1];
     FOR J:=2 TO 5 DO
       IF RZ[I,J]<LR[I] THEN LR[I]:=RZ[I,J];
     WriteLn(' Лучший результат ',I,' заплыва = ',LR[I]);
   End;
 END.