паскаль! дан массив из 30 элементов.

[игорек фролоff]

дан массив из 30 элементов. удалить все элементы меньшее а (а вводится с клавиатуры)

uses CRT;
const n=30;
var
 a,i,j:integer;
 m,p:array[1..n] of integer;
 begin
 ClrScr;
	randomize;
	j:=0;
	 for i:=1 to n do
		 m[i]:=Random(99);
	 Writeln('MaccuB:');
		for i:=1 to n do
		Write(m[i],' ');
	 Writeln;
	 Writeln('BBeDuTE 4uCJlo');
	 readln(a);
	 for i:=1 to n do
		if m[i]<a then
		begin
			j:=j+1;
			p[j]:=m[i];
		end;
	 Writeln('BoT TToJly4eHHblu MaccuB: ');
	 for j:=1 to n do
	 if p[j]<>0 then
	 Write(p[j],' ');
	readln;
 end.

вот наброски но мне нужно чтобы выходился первоначальный массив без удаленными значений

[Vinny]

const N=30;
var Mas : array [1..N] of integer; i,j,m,a:integer;
begin
m:=N;
for i:=1 to m   do
begin
writeln('vvedite el-nt ' ,i);
readln(Mas[i]);
end;
writeln('vvedite a :');
readln(a);
i:=1;
while i<=m do
begin
if (Mas[i]<a) then
begin
for j:=i to m-1 do
begin Mas[j]:=Mas[j+1];  end;
dec(m);dec(i);
end;
inc(i);
end;
writeln('Elementi udaleni :');
writeln('');
for i:=1 to m do
write(Mas[i],'; ');
readln(i);
end.