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

N1=10; vara: array[1… n1]of integer; x,n,i,j,k: integer; beginwrite ('x='); read (x); write ('n='); read (n); if (n>=1) and (n <= 10) thenbeginfor i: =1 to n dobeginwrite ('a[',i,']='); read (a[i]); end; for i: =n downto 1 doif a[i]=x thenbegink: =i; for k: =i to n-1 doa[k]: =a[k+1]; a[n]: =0; n: =n-1; end; for i: =1 to n dowriteln ('a[',i,']',a[i]); endelse write ('error'); end.