Пример работы с массивами в Free Pascal

Рассмотрим такую задачу:"Дан массив A(n,m). В каждой строке находится минимальный элемент,затем среди этих чисел выбирается максимальное. Напечатать номер строки массива A, в которой расположено выбранное число." Несмотря на внешнюю запутанность, решается она очень просто, а именно - вот так:

program abcd;
  var m,n,min_,i,j,max_,k:integer;
      a:array [1..10] of array [1..10] of integer;
  begin
    writeln('Введите числа M (M<=10) и N (N<=10)');
    readln(m,n);
    writeln('Введите элементы матрицы ');
    for i:=1 to m do
      for j:=1 to n do
      read(a[i][j]);
    k:=1;
    for i:=1 to m do
    begin
      min_:=a[i][1];
      for j:=2 to n do
      if a[i][j]<(min_) then min_:=a[i][j];
      if i=1 then max_:=min_
      else if min_>max_ then begin
      k:=i; max_:=min_; end;
    end;
    writeln;
    writeln(k,'-я строка');
    readln;
  end.