ПЛИИЗЗЗ СРОЧНОО Дан массив D(n). Удалите из массива все элементы, равные минимальному. Выведите на экран исходный и полученный массивы.

const n=5;vari,x,q:integer;d:array [1..n] of integer;beginwriteln ('Заполните массив);for i:=1 to n doread (d[i]);x:=d[1];for i:=2 to n doif x>d[i] then x:=d[i];writeln ('Минимальный элемент :',x);for i:=1 to n dowrite (' ',d[i]);writeln;for i:=1 to n do if d[i]<>x then begin q:=q+1;  d[q]:=d[i]; end;for i:=1 to q do write (' ',d[i]);end.Должно быть так. P.s. Программа написана на языке Pascal ABC.