СРОЧНОО!!! В двумерном массиве произвольного размера, заданного на промежутке случайных чисел [-20;20]найти и вывести сумму положительных элементов последнего столбца (блок-схема,программа,трассировка)

большое спасибо, я не очень информатику и не понимаю ее вообще, ещё раз спасибо

Не за что)

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