Помогите решить задачу по информатике ...паскаль

Вам же дали алгоритм в вашем предыдущем вопросе.

var
    a: array[1..5, 1..6] of integer;
    i, j, mi, mj: integer;
begin
    randomize;
    writeln('array:');
    for i := 1 to 5 do begin
        for j := 1 to 6 do begin
            a[i, j] := random(51);
            write(a[i, j]:3);
        end;
        writeln;
    end;
    mi := 1;
    mj := 1;
    for i := 1 to 5 do
        for j := 1 to 6 do
            if a[i, j] > a[mi, mj] then begin
                mi := i;
                mj := j;
            end;
    for i := 1 to 5 do a[i, mj] := 0;
    for j := 1 to 6 do a[mi, j] := 0;
    writeln('result:');
    for i := 1 to 5 do begin
        for j := 1 to 6 do write(a[i, j]:3);
        writeln;
    end;
end.

блин я бы написал но писать тут много целая задача