Дана квдратная матриц.Найти минимальный элемент столбца и поменять его на "0"

const
     n=5;
     m=3;
     s=n+m;
var
    mass:array[1..n,1..m]of integer;
    i,j,q:integer;
    min:integer;
begin
{-------------------------------------------}
    for i:=1 to n do
        for j:=1 to m do
            mass[i,j]:=random(s);
{-------------------------------------------}
    writeln('Массив:');
    for i:=1 to n do
        begin
        for j:=1 to m do
            write(mass[i,j]:3);
        writeln;
        end;
{-------------------------------------------}
    min:=mass[1,1];
    for j:=1 to m do
        for i:=1 to n do
        begin
            if min>mass[i,j] then  min:=mass[i,j];
        end;
{-------------------------------------------}
    for j:=1 to m do
        for i:=1 to n do
            if mass[i,j]=min then begin
            q:=j;
            mass[i,j]:=0;
            end;
        writeln('Минимальный элемент ',min,' в ',q,' столбце');
{-------------------------------------------}
    for i:=1 to n do
        begin
        for j:=1 to m do
            write(mass[i,j]:3);
        writeln;
        end;
{-------------------------------------------}
end.