В массиве P(10) удалить все элементы, большие некоторого заданного числа N.
Исходный и полученный массив распечатать — Pascal(Паскаль)

uses Crt;
var  p:array[1..10] of integer;
     m,n,i,j,k,x:integer;
begin
ClrScr;
randomize;
m:=10;
writeln('Исходный массив:');
for i:=1 to m do
 begin
  p[i]:=random(20);
  write(p[i],' ');
 end;
writeln;
write('Введите число, больше которого удалить элементы из массива n=');
readln(n);
i:=1;
while i<=m do
if p[i]>n then
 begin
  for j:=i to m-1 do
  p[j]:=p[j+1];
  m:=m-1;
 end
else i:=i+1;
if m=0 then write('Все элементы массива удалены')
else
 begin
  writeln('Массив после удаленй:');
  for i:=1 to m do
  write(p[i],' ');
 end;
readln
end.