Массив из десяти элементов . Нужно везде после нуля вставить восьмерку и удалить все двойки 2

uses crt;
const n=10;
var a:array[1..2*n] of integer;
    m,i,j:byte;
begin
randomize;
writeln('Исходный массив');
for i:=1 to n do
begin
  a[i]:=random(8);
  write(a[i]:3)
end;
writeln;
m:=n;
i:=1;
while i<=m do
if a[i]=2 then
begin
  for j:=i to m-1 do
  a[j]:=a[j+1];
  m:=m-1
end
else if a[i]=0 then
begin
  m:=m+1;
  for j:=m downto i+2 do
  a[j]:=a[j-1];
  a[i+1]:=8;
  i:=i+2
end
else i:=i+1;
writeln('Результат');
for i:=1 to m do
write(a[i]:3);
readln
end.