Массив 5 на 5 заполняется случайными числами от 0 до 99 в каждой строке массива найти минимальное значение . Паскаль. Помогите пожалуйста в течение 10 мин

var   a: array [1..5, 1..5] of byte;   min: array [1..5] of byte;   i, j: byte; begin   for i := 1 to 5 do min[i] := 100;   for i := 1 to 5 do     for j := 1 to 5 do     begin       a[i, j] := random(0, 99);       if (min[i] > a[i, j]) then min[i] := a[i, j];     end;          for i := 1 to 5 do   begin     for j := 1 to 5 do       write(a[i, j]:2, ' ');     writeln('- ', min[i]);   end; end.