Поиск min/max в матрице, (было: Новичек не может решить задачку) Опции

[Xal]

есть такая задача.
В матрице A[1..N,1..M] определить минимальный элемент каждой строки. Вывести строку с максимальным минимумом.

Program n1;
Uses Crt;
const
n=4;
m=5;
k=4;
Var a:array[1..10,1..10] of integer;
    b:array[1..10] of integer;
    i,j,max,min,imax,imin:integer;
begin
Clrscr;
for i:=1 to m do
for j:=1 to n do begin
a[i,j]:=random(20);
end;
writeln('ìàòðèöà');

for i:=1 to m do begin
for j:=1 to n do begin
write(a[i,j]:10);
for i := 1 to n do begin
    min := MaxInt;
    imin := 0;
    for j := 1 to m do begin
        read(a[i,j]);
        if a[i,j] < min then begin
           min := a[i,j];
           imin := j;
        end;
    end;
    if min > max then begin
        min := max;
        imax := i;
    end;
end;
end;
writeln;
for i := 1 to m do begin
    write(a[imax,i],' ');
end;
end;
readln;
readln;
end.

Она работает но не верно. что не так не пойму. это задание в универе, я шарю плохо, помогите и самое главное обьясните, по русски, без жаргона. Надеюсь на помощь. Спасибо.

Добавлено через 1 мин.
Нужно что бы матрица создавалась рандомно, а мы в коде указывали лишь ее размеры. т.е при нажатии только одной кнопки пуск программа полностью выполняла все действия, без ввода данных.