Паскаль. необходимо удалить из массива все элементы содержащие цифру 5

N1=10;

var

a:array[1 ... n1]of integer;

x, n, i, j, k:integer;

begin

write ('x=') ; read (x) ;

write ('n=') ; read (n) ;

if (n>=1) and (n<=10) then

begin

for i:=1 to n do

begin

write ('a[', i,']=') ; read (a[i]) ;

end;

for i:=n downto 1 do

if a[i]=x then

begin

k:=i;

for k:=i to n-1 do

a[k]:=a[k+1];

a[n]:=0;

n:=n-1;

end;

for i:=1 to n do

writeln ('a[', i,']', a[i]) ;

end

else write ('error') ;

end.