Вставка, удаление элементов массива; перестановка элементов массива; сортировка массива методом пузырька

uses crt;
 
var
 a:array[1..255] of integer;
 i,j:integer;
 n,t:integer;
 
procedure sort;
var
  i,t:integer;
  ok:boolean;
begin
  repeat
    ok:=true;
    for i:=1 to n-1 do
      if a[i]<a[i+1] then
        begin
          t:=a[i];
          a[i]:=a[i+1];
          a[i+1]:=t;
          ok:=false;
        end;
  until ok;
end;
 
 
begin
  repeat
    clrscr;
    randomize;
    write('Input array size: '); readln(n);
    writeln;
    if n mod 2<>0 then begin
      write('Input div2 n!');
      readkey;
    end;
  until n mod 2=0;
 
  for i:=1 to n do begin
    a[i]:=random(41)-20;               {zapolnenie [-20;20]}
    write(a[i],' ');                   {vivod}
  end;
 
  j:=(n div 2)+1;
 
  for i:=1 to j div 2 do begin         {zamena 1st polovini mas}
    t:=a[i];
    a[i]:=a[j-i];
    a[j-i]:=t;
  end;
 
  for i:=j to n do                     {zamena 2nd polovini mas}
    if a[i]<0 then a[i]:=0;
 
  writeln; writeln;
  for i:=1 to n do write(a[i],' ');
 
  sort;
  writeln; writeln;
  for i:=1 to n do write(a[i],' ');
 
  readkey;
end.