Hogy kéne ezt megcsinálni?

program beadando;

const n=10;

var i,j,tmp:integer;

a:array[1..n] of integer;

procedure beker;

begin

for i:=1 to n do read(a[i]);

readln;

end;

procedure rendez;

begin

for i := n - 1 downto 1 do

for j := 1 to i do

if a[j] > a[j+1] then

begin

tmp := a[j];

a[j] := a[j+1];

a[j+1] := tmp;

end;

for i := 1 to n do

Write(a[i], ' ');

WriteLn;

end;

BEGIN

beker;

rendez;

end.

esetleg így jó lenne?