Скажите, пожалуйста, как исправить исправить код в процедуре

program zadanie2;
const
  n=5;
type
  tMas= array[1..n] of integer;
var
  a : tMas;
  i, k  : integer;
 
procedure Vvod(var a:tMas);
var
  i: integer;
begin
  for i:=1 to n do
    readln(a[i]);
end;
 
procedure sdvig(var a: tMas; i, k:integer);
var
 j, x: integer;
begin
  x:=a[k+1];
  for j:=i downto k+1 do
    a[j]:=a[j+1];
  a[i]:=x;
end;
 
begin
  Vvod(a);
  k:=0;
  for i:=1 to n do
    if a[i]=0 then begin
      sdvig(a, i, k);
      k:=k+1
    end
end.

uses crt;
var a:array[1..10] of integer;
    i,buf,j:integer;
begin
     Randomize;
     writeln('введите массив*');
     for i:=1 to 10 do
     begin
          a[i]:= Random (2);
          write(a[i]:3);
     end;
     
     buf:=0;
     for i:=1 to 9  do
         for j:= i+1 to 10 do
            if (a[i]= 0 )and(a[j] = 0)
               then continue
               else if (a[i]<> 0 )and(a[j]<> 0)
                       then continue
                       else if (a[i]=0)and(a[j]<>0)
                              then continue
                              else begin
                                       buf:= a[i];
                                       a[i]:= a[j];
                                       a[j]:= buf;
                                   end;
 
     writeln;
                                   
     for i:=1 to 10 do write(a[i]:3);
         
         
 
end.