"Седловая" точка Опции

[D.o.c.t.o.r]

Program Laboratory10;

// Элемент матрицы называется седловой точкой, если он является одновременно на-
// именьшим в своей строке и наибольшем в своём столбце. Дана дейтсвиетльная
// матрица размера 5*6. Выяснить, имеются ли седловые точки в этой матрице, и
// если имеются, то указать индексы одной из них

{$APPTYPE CONSOLE} // Консольное приложение

Uses
SysUtils;

Type
TM = array [1..5,1..6] of Integer; // Двумерный массив, состоящий из целых чисел
TI = array [1..5,1..6] of Integer; // Двумеррный массив, состоящих из индексов чисел

Var
s: Integer;
a:TM;

Procedure Input (Var a:TM); // Процедура ввода матрицы
Var i,j:integer;
Begin
Writeln ('Write elements - range of 5');
For i:=1 to 5 Do
Begin
For j:=1 to 6 do
Begin
Write ('Write element of ',i,'th string and ',j,'th column: ');
Readln (a[i,j]);
End;
End;
End;

Procedure Output (Var a:TM); // Процедура выводав матрицы
Var i,j:integer;
Begin
Writeln ('Current matrix');
Writeln;
For i:=1 to 5 do
Begin
For j:=1 to 6 do
Begin
Write (a[i,j],' ');
End;
Writeln;
End;
End;

Procedure Found (Var a:TM); // Процедура нахождения "седловых точек"
For i:=1 to 5 do
Begin
For j:=1 to 6 do
Begin
a[i,j] := j

end;

end;
End;

Begin // Main
Input (a);
Output (a);
Found (a);
Writeln (S);
Readln;
End.

Помогите пожалуйста написать процедуру "Found"

[мисс_граффити]

поиск

[volvo]

Здесь было нахождение всех седловых точек матрицы:
Матрицы, строки, файлы