доделать надо ) (МАССИВ)

Program zadanie_2;
const lmax=10;
type mass=array[1..lmax] of integer;
Var A:mass;
k,i,n:integer;
begin
writeln ('введите длину массива A');
repeat 
read(n);
until (n>0) and (n<=lmax);
writeln ('введите массив A');
for i:=1 to n do
 read (A[i]);
k:=0;
for i:=1 to n do
 if ((A[i] mod 3) <>0) or ((A[i] mod 3 =0) and (A[i]<0)) then begin
 A[k]:=A[i]
 k:=k+1
 end;
 for i:=1 to k do
  write (A[i]:10)
end.

Program zadanie_2;
 
const lmax=10;
 
type mass=array[1..lmax] of integer;
 
Var A:mass;
k,i,n:integer;
 
begin
 
writeln ('введите длину массива A');
repeat
read(n);
until (n>0) and (n<=lmax);
 
writeln ('введите массив A');
for i:=1 to n do
 read (A[i]);
 
k:=0;
for i:=1 to n do
 if ((A[i] mod 3) <>0) or ((A[i] mod 3 =0) and (A[i]<0)) then begin
 k:=k+1;
 A[k]:=A[i];
 end;
Writeln('Эл-ты кратные 3 удалены!');
write('Оставшиеся эл-ты после сортировки: ');
for i:=1 to k do
  write (A[i]:10)
end.

Program zadanie_2;
const lmax=10;
type mass=array[1..lmax] of integer;
Var A:mass;
    k,i,j,n:integer;
begin
writeln ('введите длину массива A');
repeat
read(n);
until (n>0) and (n<=lmax);
writeln ('введите массив A');
for i:=1 to n do
 read (A[i]);
k:=0;
i:=1;
while i<=n do
 if (A[i] mod 3 =0) and (A[i]>0) then
  begin
   k:=1;
   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;
if n=0 then write('Все элементы удалены')
else if k=0 then write('Ни один элемент не удален')
else
 begin
  writeln('Результат удаления:');
  for i:=1 to n do
  write(a[i],' ');
 end;
end.