Buborék-rendezés

program szamok;
const meret = 100;
var
  t: array[1..meret] of integer;
  i: integer;
  
procedure rendez;
var i, j: integer;
begin
  for i:=1 to meret do
    for j:=1 to i-1 do
      if(t[j] > t[j+1] then { csere }
      begin
        w := t[j];
    	t[j] := t[j+1];
    	t[j+1] := w;
      end;
end;

procedure kiir;
var i: integer;
begin
  for i:=1 to meret do
    write(t[i], ' ');
end;

{ főprogram }
begin
  { Először feltöltjük a tömböt véletlen számokkal }
  for i:=1 to meret do
    t[i] := random(10000);	{ 0..9999 közé eső véletlenszám }
  writeln('Rendezetlenül:');
  kiir;
  rendez;
  writeln('Rendezve:');
  kiir;
  readln;  
end;