[programming]

Надеюсь на вашу помощь.
Задание:

Программу я написал,но она не совсем правильно работает и достаточно большая, помогите,пожалуйста, исправить.

const n=30;
var a,c:array[1..n] of integer;
i,b,k:integer;
begin
k:=1;
i:=1;
for i:=1 to 30 do
a[i]:=random(100) + 1;
for i:=1 to 30 do
write (' ',a[i]);
writeln('Введите число, которое нужно удалить');
read (b );
for i:=1 to n do begin
if a[i]=b then begin
c[k]:=i;
k:=k+1;
end;
end;
for k:=1 to n do begin
for i:=1 to n do begin
if i=c[k] then begin
a[i]:=a[i+1];
a[n]:=0;
end;
end;end;
writeln('Готовый массив');
for i:=1 to 30 do begin
write (' ',a[i]);
end;
end.