Работа со строками матриц

[Neitrosha]

Матрица 3 на 3
Найти в каждой строке минимум, среди минимумов-их максимум

[GetMax]

Max:=Low(Integer);
For i:=1 to 3 do
Begin
   Min:=High(Integer);
   For j:=1 to 3 do
   Begin
      If Mas[i,j] < Min then Min:=Mas[i,j]
  End;
  Writeln('Минимум ',i,' строки = ',Min);
  If Min > Max then Max:=Min
End;
Writeln('Максимум среди минимумов = ',Max)

Код не проверял

[Neitrosha]

спасибо

а еще вопрос
как в ней написать код заполнения этой же матрицы вручную?

[GetMax]

как в ней написать код заполнения этой же матрицы вручную?

For i:=1 to 3 do
Begin
   Write('Введите ',i,' строку матрицы: ');
   For j:=1 to 3 do
   Readln(Mas[i,j])
End;