Turbo pascal - Program sortujący liczby rosnąco

program sortowanie_liczb;
uses crt; 

const size=10;
var
   tab: array[1..size] of integer;
   tmp: integer;
   i, j: integer;
begin
clrscr;
     for i:=1 to size do
     begin
          write(i, ' element: ');
          readln(tab[i]);
     end;
     for i:=size downto 2 do
     for j:=size downto size+2-i do
         begin
         if tab[j-1]>tab[j] then
            begin
                 tmp:=tab[j];
                 tab[j]:=tab[j-1];
                 tab[j-1]:=tmp;
         end;
         end;
writeln;
     for i:=1 to size do
     begin
          writeln(tab[i],'  ');
     end;
     readkey;
end.