Найти сумму положительных элементов и сформировать вектора

[Witamen]

Дан двумерный массив размеров M x N. Найти сумму его положительных элементов. Из первых четырёх строк массива сформировать четыре новых вектора (одномерные массивы) и в каждом из них удалить элементы, принадлежащие отрезку [a,b].
Был бы очень рад если бы кто-то помог. В паскале плохо разбираюсь а задание сдать надо

[Alex11223]

Вы не перепутали "помогите" и "сделайте за меня"?

Покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[newerow1989]

const m=10;
      n=8;
      a=1;
      b=4;
var p:array[1..m,1..n] of integer;
    p1,p2,p3,p4:array of integer;
    i,j,s,l:integer;
begin
   Randomize;
   For i:=1 to m do
   begin
      For j:=1 to n do
      begin
         p[i,j]:=-10+Random(21);
         Write(p[i,j]:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   s:=0;
   For i:=1 to m do
      For j:=1 to n do
         If p[i,j]>0 then
            s:=s+p[i,j];
   Writeln('summa = ',s);
   l:=0;
   For j:=1 to n do
      If (p[1,j]<a) or (p[1,j]>b) then
      begin
         l:=l+1;
         SetLength(p1,l);
         p1[l-1]:=p[1,j];
      end;
   For i:=0 to l-1 do
      Write(p1[i]:2,'  ');
   Writeln;
   l:=0;
   For j:=1 to n do
      If (p[2,j]<a) or (p[2,j]>b) then
      begin
         l:=l+1;
         SetLength(p2,l);
         p2[l-1]:=p[2,j];
      end;
   For i:=0 to l-1 do
      Write(p2[i]:2,'  ');
   Writeln;
   l:=0;
   For j:=1 to n do
      If (p[3,j]<a) or (p[3,j]>b) then
      begin
         l:=l+1;
         SetLength(p3,l);
         p3[l-1]:=p[3,j];
      end;
   For i:=0 to l-1 do
      Write(p3[i]:2,'  ');
   Writeln;
   l:=0;
   For j:=1 to n do
      If (p[4,j]<a) or (p[4,j]>b) then
      begin
         l:=l+1;
         SetLength(p4,l);
         p4[l-1]:=p[4,j];
      end;
   For i:=0 to l-1 do
      Write(p4[i]:2,'  ');
   Writeln;
   Readln;
end.