{* Минимальный элемент в каждой строке *}

Unit MAS_8;
Interface
Implementation
Begin
 writeln('Нахождение минимального элемента в каждой строке массива');
End.

Program mas_8;

Uses mas_8.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Const {* Предопределенные *}
  n = 5;
Var {* Объявление переменных *}
  a   : Array[1..n, 1..n] Of integer;
  b   : Array[1..n] Of integer;
  i   : integer;
  j   : integer;
  min : integer;
Begin
  clrscr; {* Очистка экрана *}
  randomize;
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
    For j := 1 To n Do {* Цикл для j => [1 .. n] *}
    Begin
      a[i, j] := random(9) + 1;
      gotoxy(i * 2, j);
      write(a[i, j]);
    End;
  writeln; {* Пустая строка *}
  min := a[1, 1];
  j := 1;
  While ja[i, j] Then
    min := a[i, j];
  b[j] := min;
  inc(j); {* Увеличиваем j на 1 *}
  min := a[1, 1];
End;
For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  write(b[i]);
readkey; {* Ждем нажатия любой клавиши *}
End......