Hogyan lehetne összedobni ezt az algoritmust?

program buborek;

type

tombtip = array[1..10] of byte;

var

t : tombtip;

i, j, cs : byte;

procedure csere (var a, b : byte);

begin

cs := a;

a := b;

b := cs;

end;

procedure buborekos_rendezes (var a : tombtip);

begin

i := High (a) - 1 ;

while (i >= 1) do

begin

for j:=1 to i do

if a[j]>a[j+1] then csere(a[j + 1],a[j]);

dec(i);

end;

end;

procedure kiir (a : tombtip);

begin

WriteLn;

for i := 1 to 10 do

Write(t[i], ' ');

WriteLn;

end;

begin

j := 1;

for i := 10 downto 1 do

begin

t[i]:= j;

inc(j);

end;

WriteLn('Rendezés előtt:');

kiir(t);

buborekos_rendezes(t);

WriteLn('Rendezés után');

kiir(t);

ReadLn;

end.

'Ez, amit leírtam Pascal nyelven, a buborék rendezés implementálása volt.'

Kár volt.

Első kör:

procedure kiir (a : tombtip); // ??? ez mi ???

begin

WriteLn;

for i := 1 to 10 do

Write(t[i], ' ');

WriteLn;

end;

Azt tudtam, hogy ebbe bele lesz kötve, mert egyszerűbben is meg lehetett volna oldani, hogy kiiratom a kocsivissza és soremelés karaktereket és akkor nem kell se elejére se végére két "WriteLn;".

Bízom és reménykedem benne, hogy a világ ettől még nem áll meg, nem leszek megátkozva, nem követtem el borzalmas, rettenetes, jóvátehetetlen hibát, mert 2 darab "WriteLn" van eljárás elején és végén.