удаление строк у массиве, в Паскале я новичок, если можно помогите Опции

[faktorX]

Дан двухмерный массив. Удалить из него две строки, одна из которых расположена
перед s-й строкой, а вторая перед p-й. Вобшем я создал массив, а дальше не знаю,
если можно допишите вот текст

Код

program a1;
    uses crt;
   const n=10;
  var a:array[1..n,1..n] of integer;
  i,j: integer;
begin
clrscr;
  randomize;
  begin
  for i:=1 to n do
  begin
  for j:=1 to n do
  begin
a[i,j]:=random(99)-1;
write(a[i,j]:7);
end;
writeln
end;
readln
end;
end.

[Rusted-Razor]

Вот прога, вроде рабочая.
Еденицу вводить нельзя...

uses crt;

const lenRows=6;
      lenColumns=4;
      d1=-10;
      d2=10;
var r,c : byte;
    i,p : byte;
    m   : array [1..lenRows, 1..lenColumns] of integer;
begin
   randomize;
   for r:=1 to lenRows do
     for c:=1 to lenColumns do
       m[r,c]:=random(d2-d1+1)+d1;
   clrscr;

   writeln('Матриця');
   for r:=1 to lenRows do
      begin
   for c:=1 to lenColumns do
write(M[r,c]:8);
   writeln;
       end;

Repeat
   writeln('программа удалит  строку перед "I" и "P"   i<p : ');
   write('введите номер строки i: '); readln(i);
   write('введите номер строки p: '); readln(p);
Until (i<=lenrows) and (p<=lenrows) and (i<=p) and (i<>1) and (p<>1);


   writeln('Матриця');
For  r:=1 to lenRows do
If (r<>I-1) and (r<>p-1) then
  begin
    For c:=1 to lenColumns do
    write(M[r,c]:8);
  writeln;
   end;

 readkey
end.