Stuff

program matrica2;
type mas=array[1..1000,1..1000] of real;

procedure generuok(var n:integer; var arr:mas);
var a,b:integer;
begin
    randomize;
    for a:=1 to n do
    begin
        writeln;
        for b:=1 to n do
        begin
            arr[a][b]:=random(1000);
            write(arr[a][b]:4:0, ' ');
        end;
    end;
end;

procedure rikiuok(var n:integer; var arr:mas);
var a,b,max:integer;
    temp:real;

begin
    for a:=1 to n do
    begin
        for b:=1 to n do
        begin
        max:=1;
        if arr[a][2]<arr[max][2] then
        begin
            for a:=1 to n do
            begin
                temp:=arr[max][2];
                arr[max][2]:=arr[a][2];
                arr[a][2]:=temp;
            end;
        end;
    end;
end;
    for a:=1 to n do
    begin
        writeln;
        for b:=1 to n do write(arr[a][b]:4:0, ' ');
    end;
end;

var n:integer;
    sk,sk2,temp:real;
    arr:mas;
    
begin
    writeln('Turime matrica n*n, kuria rusiuosime pagal 2-ojo stulpelio didejima.');
    writeln('Iveskite n:');
    readln(n);
    generuok(n,arr);
    writeln;
    writeln;
    writeln('Surusiavom');
    rikiuok(n,arr);
    readln();
end.