Двумерный массив. Определить минимальный элемент в каждом столбце и строке матрицы

uses crt;
var u: array [1..6,1..6] of integer;
    i,j,imin,jmin: byte;
    f: text;
begin
assign(f,'C:\out.txt');
rewrite(f);
writeln('Дана матрица U');
writeln(f,'Дана матрица U');
for i:=1 to 6 do
    begin
    for j:=1 to 6 do
        begin
        u[i,j]:=j-i;
        write(u[i,j]:3);
        write(f,u[i,j]:3);
        end;
    writeln('');
    writeln(f,'');
    end;
writeln('');
writeln(f,'');
writeln('Минимальные элементы строк:');
writeln(f,'Минимальные элементы строк:');
for i:=1 to 6 do
    begin
    jmin:=1;
    for j:=1 to 6 do
        if u[i,j]<u[i,jmin] then jmin:=j;
    writeln(i,'  строка, мин. элемент=',u[i,jmin]:3);
    writeln(f,i,'  строка, мин. элемент=',u[i,jmin]:3);
    end;
writeln('');
writeln(f,'');
writeln('Минимальные элементы столбцов:');
writeln(f,'Минимальные элементы столбцов:');
for j:=1 to 6 do
    begin
    imin:=1;
    for i:=1 to 6 do
        if u[i,j]<u[imin,j] then imin:=i;
    writeln(j,' столбец, мин. элемент=',u[imin,j]:3);
    writeln(f,j,' столбец, мин. элемент=',u[imin,j]:3);
    end;
close(f);
end.