основы визуальной алгоритмизации

program N4;
uses crt;
const
    rows = 7;{количество строк}
    cols = 4;{количество столбцов}
var
    row, col : integer;
    a : array A[rows,cols] of integer;
    max : integer;
    colmax : integer;{номер столбца с максимальным элементом}
begin
    writeln( 'ввод матрицы' );
    for row := 1 to rows do
    begin
        write( 'строка ', row, ' ' );
        for col := 1 to cols do
            read( a[row,col];
        writeln;
    end;
    {поиск максимального элемента}
    max := -32768;
    for row := 1 to rows do
    begin
        for col := 1 to cols do
        begin
            if a[row,col] > max then
            begin
                max := a[row,col];
                colmax := col;
            end;
        end;
    end;
    {перестановка столбцов}
    if colmax <> 1 then
    begin
        for row := 1 to rows do
        begin
            tmp := a[row,1];
            a[row,1] := a[row,colmax];
            a[row,colmax] := tmp;
        end;
    end;
end;