Правка кода в задании "Дан одномерный массив. Переместить максимальные элементы в конец, сдвинув остальные элементы влево"

type mas=array [1..1000] of byte;
var
 a: mas;
 n,max:integer;
 
procedure vivodmass( var a1:mas; n:integer);
var i:integer;
  begin
  for i:=1 to n do
                write('  ',a1[i]);
  end;
 
procedure vvodmass(var a1:mas; n:integer);
var i:integer;
   begin
   for i:=1 to n do
                 a[i]:=random(5);
   end;
 
procedure poiskmax (var a1:mas; n:integer);
var i:integer;
begin
max:=1;
  begin
  for i:=2 to n do
                  if a[i]>a[max] then  max:=i;
 
   end;
end;
 
procedure sdvigmass(var a1:mas; i,n,k:integer);
var j:integer;
    begin
    for j:=i+1 to n do
                    a[j-1]:=a[j];
                    a[n]:=k;
    end;
 
procedure sdvigmassiva(var a1:mas; n:integer);
 var i,k:integer;
 begin
  k:=a[max];
  for i:=max to n do
   if a[i]=k then
             sdvigmass(a,i,n,k);
 end;
 
 
begin
 randomize;
 writeln('Çàäàéòå äëèíó ìàññèâà');
 readln(n);
 write('Äàííûé ìàññèâ');
 vvodmass(a,n);
 vivodmass(a,n);
 writeln;
 poiskmax(a,n);
 sdvigmassiva(a,n);
 write('Èçìåíåííûé ìàññèâ');
 vivodmass(a,n);
 writeln
 
end.