Программа,сортирующая элементы массива по возрастанию

const
  size = 50; {массив из 50 элементов}
type
  mas = array[1..size] of integer; 
var
  a : mas;
  i : integer;
 
{процедура сортировки "пузырьком"}
procedure bubble(var q : mas);
var x, y, z : integer;
begin
  for x := 1 to size do
    for y := size downto x do
      if q[x] >= q[y] then
      begin
        z := q[x];
        q[x] := q[y];
        q[y] := z
      end
end;
 
begin
  {запоняем массив случайными числами и выводим}
  randomize;
  writeln('массив:');
  for i := 1 to size do
  begin
    a[i] := random(100) - 50;
    write(a[i]:4)
  end;
  {вызываем процедуру сортировки}
  bubble(a);
  {выводим отсортированный массив}
  writeln;
  writeln('отсортированнаый массив: ');
  for i := 1 to size do
    write(a[i]:4);
  readln
end.

uses crt;
const n=50;
var a:array[1..n] of integer;
    i,j,tmp:integer;
begin
 clrscr;
  writeln('Ìàññèâ À :');
   for i:=1 to n do
    begin
     a[i]:=-50+random(100);
     write(a[i]:4);
    end;
   writeln;
   writeln('Îòñîðòèðîâàíûé ìàññèâ :');
    for j:=1 to n-1 do
     for i:=1 to n-1 do
      if a[i]>a[i+1] then
       begin
        tmp:=a[i];
        a[i]:=a[i+1];
        a[i+1]:=tmp;
       end;
     for i:=1 to n do
      write(a[i]:4);
 readkey;
end.