Прошу помощь в нахождении ошибки

[Titanix652]

Определить элемент матрицы, для которого выполняется условие: элемент минимален в i-ой строке (сами вводим строку в которой нужно найти минимальное значение, вывести строчку) и имеет максимальное значение в соответствующем столбце. Матрица размером (7x8)

program three;
uses crt;
var a:array[1..7,1..8] of integer;
var i,j,max,min,im,jm : integer;
Begin
clrscr;
randomize;
for i:= 1 to 7 do begin
        for j:= 1 to 8 do begin
                a[i,j]:=random(100)+1;
                write(a[i,j]:4);

        end;
        writeln;

end;
write('vvedite nomer stroki');
readln(i);
min:=a[1,1];
 for j:= 1 to 8 do begin;
if a[i,j] < min then min:=a[i,j];
end;
writeln('Min chislo v', i , 'stroke =', min);
readkey;
end.

Дальше никак не получается определить номер столбца, он выдает последний (восьмой) столбец и находит там наибольшее число. Как написать, чтобы искал в том столбце, где нашел минимальное чило i-ой строчки?