Помогите пожалуйста (pascal). В долгу не останусь ;)

пробелы соотв перед квадратными скобками поубирать

uses crt;

const M=3; {stroki}
T=3; {stolbec}
var
mtm:array[ 1..M,1..t ]of integer;
i, j :integer;
min :integer;
maxmin :integer;
max_ind :integer;

begin
clrscr;

{vvodim 3 stroki po 3 cifer}
{primerno tak
5 4 -5 <enter>
0 1 2 <enter>
3 4 5

}
for i:=1 to M do begin
for j:=1 to T do
read(mtm[ i, j ]);
end;

maxmin:=-maxInt; {init for start minimum}
for i:=1 to M do begin
min:=mtm[ i,1 ];
for j:=1 to T do if mtm[ i,j ] < min then
min:=mtm[ i, j ];
writeln(' [ ',+i,' ] MIN: ', min); {vivod minimalniy element v kagdoy stroke}

if min > maxmin then begin
maxmin:=min;
max_ind:=i;
end;
end;

writeln('MAX MIN ELEMENT: ', maxmin); {maksimum iz minimumov}
writeln(' on string: ', max_ind);

readln;
end.

результ:
1 2 3 ---ввод данных через пробелы
-6 5 4
9 60 5
[1] MIN: 1 ---вывод минимумов для каждой из строк
[2] MIN: -6
[3] MIN: 5
MAX MIN ELEMENT: 5 ---масксимальный минимум
on string: 3 -- в третей строке

const M=...,
T=...;
var mtm:array[1..m,1..t]of integer;//основная матрица
var ress:array[1..M]of integer;//сюда будем записывать минимумы
var i,j:integer;//счётчики
var min:integer;//минимум
var max:integer;//максимум
var max_ind:integer;//индекс максимального элемента
begin

for i=1 to M do
for j=1 to T do
readln(mtm[i,j]);//заполняем матрицу

for i=1 to M do
begin
min:=mtm[M,1];
for j:=1 to T do
begin
if mtm[i,j]<min>>max then
begin
max:=ress;//ищем максимум среди минимумов;
max_ind:=i;
end;
end;
writeln(max_ind);//выводим ответ
end.

Я часто забываю, где строки, а где столбцы. Поэтому, если он выведет индекс столбца, то поменяй i и j