Составить процедуру для получения из квадратной матрицы A(n,n), n<=6 матрицы B(n,n-1) путем вычеркивания элементов главной диагонали исходной

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
var q,mas:array [1..6,1..6] of integer;
        a,b,i,j,n:integer;
begin
    randomize;a:=1;b:=1;
    Writeln('Enter size of array = ');readln(n);
    Writeln('Array [start]');
    for i:=1 to n do
        begin
            for j:=1 to n do
                begin
                 mas[i,j]:=random(10);
                 Write(mas[i,j],' ');
                end;
            writeln;
        end;
    Writeln('Array [finish]');
    for i:=1 to n do
        begin
            for j:=1 to n do
                begin
                 if (i<>j) then
                    begin
                        q[a,b]:=mas[i,j];
                        Write(q[a,b],' ');
                        inc(b);
                    end;
                end;
            inc(a);
            b:=1;
            writeln;
        end;
    readln;
end.