Паскаль авс. Помогите пожалуйста!!!!
Вставить в одномерный массив два числа следующим образом: первое со значением N перед всеми элементами, большими N, и второе со значением M – после всех элементов, меньших М.

а если начало вот такое будет то дальше как? program z220; uses crt; var a: array [1..1000] of integer; t,i,k,n,m,sn,sm,d:integer; begin randomize; write('размер массива');readln(k); for i:=1 to k do begin a[i]:=random(51); write(a[i], ' ' ); end; write('введите значение чисел');readln(n,m); for i:=1 to k do begin if a[i]>n then sn:=sn+1; if a[i]<m then sm:=sm+1; end;

program z220; uses crt; var a: array [1..1000] of integer; t,i,k,n,m,sn,sm,d:integer; begin randomize; write('размер массива');readln(k); for i:=1 to k do begin a[i]:=random(51); write(a[i], ' ' ); end; write('введите значение чисел');readln(n,m); for i:=1 to k do begin if a[i]>n then sn:=sn+1; if a[i]<m then sm:=sm+1; end;

Если элементы массива идут по возрастанию, то вот такprogram wstawka; uses crt; const min=1;max=20; type zona=min..max;massiw=array[zona] of integer; var mas:massiw;i,j:zona;a,N,M:integer;T:boolean;BEGIN randomize;clrscr; N:=random(20);writeln('4ucJlo N = ',N); M:=random(20); Writeln('4ucJlo M = ',M);for i:=min to max-2 dobeginmas[i+1]:=mas[i]+random(5); write(mas[i],' ');end;for i:=min to max-2 doif (mas[i]>N) and (t=false) thenbegint:=true; a:=mas[i]; mas[i]:=N;for j:=i+1 to max dobeginN:=mas[j];mas[j]:=a;a:=N;end;end;for i:=min to max-1 doif (mas[i]>M) and (t=true) thenbegin t:=false;a:=mas[i];mas[i]:=M;for j:=i+1 to max dobeginM:=mas[j];mas[j]:=a;a:=M;end;end;writeln;for i:=min to max do write(mas[i],' ');readkey; END.