Pascal rikiavimas

program Bevarde18;
type
    masyvas = array[1..5] of integer;
var
    A : masyvas;
    i, n : integer;

procedure Rikiavimas(var A : masyvas; i, n : integer);
var j, k : integer;
begin
    for i := 1 to n do
    begin
        for j := 1 to n - 1 do
        begin
            if(A[j]) > A[j+1]
                then
                    begin
                        k := A[j];
                        A[j] := A[j+1];
                        A[j+1] := k;
                    end;
        end;
    end;
end;

begin
    A[1] := 4;
    A[2] := 12;
    A[3] := 1;
    A[4] := 3;
    A[5] := 66;
    n := 5;
Rikiavimas(A, i, n);

for i := 1 to n do
    writeln(A[i]);
Readln;
end.