Сформировать квадратную матрицу порядка n по заданному образцу: — Pascal(Паскаль)

uses crt;
const n=15;
var m:array[1..n]of integer;
    i,j,a,b,p:integer;
begin
clrscr;
randomize;
writeln('Ishodnyj massiv:');
for i:=1 to n do
   begin
    m[i]:=random(50)+1;
    write(m[i],' ');
   end;
writeln;
write('a=');readln(a);
write('b=');readln(b);
i:=2;p:=n;
while i<=p do
  begin
   if (abs(m[i])>=a)and(abs(m[i])<=b)then
   begin
    for j:=i to p-1 do
      begin
       m[j]:=m[j+1];
      end;
    p:=p-1;
   end
else i:=i+1;
end;
writeln('Rezultat:');
for i:=1 to p do
write(m[i],' ');
for i:=p+1 to n do
write('0 ');
readln
end.