СРОЧНОО!!! В двумерном массиве произвольного размера, заданного на промежутке случайных чисел [-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