Turbo pascal - Program sortujący liczby maleją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.