Удалить элементы массива

var a:array of integer;
    i,k,n:integer;
begin
randomize;
writeln('Введите количество элементов');
readln(n);
setlength(a,n);
writeln('Исходный массив');
for i:=1 to n do
begin
   a[i]:=random(71)-10;
   write(a[i]:4);
end;
writeln;
k:=0;
for i:=1 to n do
if (a[i] mod 3=0)and(odd(a[i] mod 10)) then inc(k)
else a[i-k]:=a[i];
dec(n,k);
writeln('Результат:');
for i:=1 to n do
write(a[i]:4);
readln;
end.

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,m,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=random(71)-10;
  write(a[i]:4);
 end;
writeln;
writeln;
m:=n;
i:=1;//смотрим массив с начала
while i<=n do//пока не конец
if(odd(a[i] mod 10))and(a[i] mod 3=0) then//если по условию
 begin
  if i=n then n:=n-1//если последний, обрезаем массив
  else//иначе
   begin
    for j:=i to n-1 do//сдвидаем конец массива влево на этот элемент
    a[j]:=a[j+1];
    n:=n-1;//обрезаем
   end
 end
else i:=i+1;
writeln('Удаление элементов кратных 3 с нечетной последней цифрой:');
if n=0 then write('Все элементы удалены')
else if n=m then write('Таких элементов в массиве нет')
else
 for i:=1 to n do
 write(a[i]:4);
readln
end.