Var
  a: array[1..1000,1..1000] of integer;
  i,j,s,n,m: integer;
begin;
  write ('Введите количество строк: ');
  readln (n);
  write ('Введите количество столбцов: ');
  readln (m);
  s:=0;
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(-20,20);
      write (a[i,j]:4);
    end;
    writeln;
    if a[i,m] >= 0
      then s:=s+a[i,m];
  end;  
  writeln;
  writeln ('Сумма положительных элементов последнего столбца = ',s);
end.

------------------------Результат:-------------------------

Введите количество строк: 5
Введите количество столбцов: 4
 -20  14  10  13
   0 -17  19  -4
  -1  16  18  17
  10  -8 -15  16
   5  18   3   9

Сумма положительных элементов последнего столбца = 55