Поиск 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 мин.
Нужно что бы матрица создавалась рандомно, а мы в коде указывали лишь ее размеры. т.е при нажатии только одной кнопки пуск программа полностью выполняла все действия, без ввода данных.

[Lapp]

М

Просьба ознакомиться с Правилами (в том числе п.4) и соблюдать их. На этот раз я исправил сам

Она работает но не верно.

Я бы не стал называть это "работой" . Ты совсем запутался в циклах. Я исправил, попробуй разобраться. Что неясно - спрашивай.

Program n1;
const
  n= 4;
  m= 5;
Var
  a: array[1..n,1..m] of integer;
  i,j,min,imax,jmax: integer;
begin
  Randomize;
  for i:= 1 to n do for j:= 1 to m do a[i,j]:=random(20);
  writeln('iao?eoa');
  for i:= 1 to n do begin
    for j:= 1 to m do write(a[i,j]:4);
    WriteLn
  end;
  imax:= 1;
  for i:= 1 to n do begin
    min:= 1;
    for j:= 2 to m do if a[i,j] < a[i,min] then min:= j;
    if i=1 then jmax:= min
    else if a[i,min] > a[imax,jmax] then begin
      imax:= i;
      jmax:= min
    end
  end;
  writeln;
  for j:= 1 to m do write(a[imax,j]:4);
  readln;
end.