Дана правильная матрица. Найти максимальный элемент в строке где на главной диагонали находится минимальный элемент- Pascal(Паскаль)

var
a:array[1..100,1..100]of integer;
i,j,n,imin,max:integer;
begin
writeln('vvedite razmer matricy');
readln(n);
writeln('vvedite elementy');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
writeln('massiv');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
imin:=1;
for i:=1 to n do
if a[i,i]<a[imin,imin] then imin:=i;
max:=a[imin,1];
for i:=1 to n do
if a[imin,i]>max then max:=a[imin,i];
writeln('stroka=',imin,' max=',max);
readln;
readln;
end.