Скорая помощь

//fpc 3.0.0

program Dvach;
    const
        N=6;
        M=8;
    var
        i, r, j, nrow, temp:integer;
        x:array[1..N, 1..M] of integer;
        multi: array[1..M] of integer;


begin
//Заполняем матрицу
for i:=1 to N do
    for j:=1 to M do
        x[i,j]:=random(9)+1;
//Вывод матрицы
for i:=1 to N do
begin
    For j:= 1 to M do
        Write(' ', x[i,j]:2);
    Writeln;
end;
Writeln;
//"Упорядочить элементы столбцов матрицы по невозрастанию"
for j:=1 to M do
    for r:= 1 to N do
        for i:= 1 to N-r do
        begin
            if x[i,j]<x[i+1,j] then
            begin
                temp:= x[i,j];
                x[i,j]:=x[i+1,j];
                x[i+1,j]:=temp;
            end;
        end;
//Вывод матрицы
for i:=1 to N do
begin
    For j:= 1 to M do
        Write(' ', x[i,j]:2);
    Writeln;
end;
Writeln;
//"Cами столбцы по возрастанию произведения элементов"
for j:=1 to M do
    begin
        multi[j]:= 1;
        for i:= 1 to N do
            multi[j]:= multi[j]*x[i,j];
    end;
for r:=1 to M-1 do
    for j:=1 to M-r do
        if multi[j]>multi[j+1] then
        begin
            temp:=multi[j];
            multi[j]:=multi[j+1];
            multi[j+1]:=temp;
            for nrow:=1 to N do
            begin
                temp:= x[nrow, j];
                x[nrow,j]:=x[nrow,j+1];
                x[nrow,j+1]:=temp;
            end;
        end;
//Вывод матрицы
Writeln;
for i:=1 to N do
begin
    For j:= 1 to M do
        Write(' ', x[i,j]:2);
    Writeln;
end;
Writeln;
for j:=1 to M do
    Write(' ', multi[j]:2);
end.