Удалить из массива элемент в диапазоне [-50; 50] равный заданному

var a: array [1… 100] of integer; n: integer; Found: boolean; BEGIN read (n); for i: =1 to 100 do begin a[i]: =random (-50,50); if a[i]=n then Found: =true; if Found then a[i]: =a[i+1]; end; END.