сумма в столбцах матрицы Опции

[ship]

Привет всем. Пожалуйста помогите с задачей, а то у меня с паскалем не очень.

Дана матрица М(n-строки, m-столбцы). Надо найти сумму положительных элементов в каждом столбце
матрицы. Получить новую матрицу, полученную от деления суммы по столбцу на значение кокретного
элемента. Результатные и промежеточные данные вывести на экран.

program zadacha;
  uses crt;
  var
    A: array [1..n,1..m] of real;
    i,j,n,m:integer;
    S:real;
    label
    L1, L2;
    L1:
    clrscr;
     ...
      S:=0;
	for j:=1 to n do
	for i:=1 to n do
      begin
	if A[i,j]>0 then
	S:=S+A[i,j];
      end;
           for j:=1 to m do
	   for i:=1 to n do
      begin
	A[i,j]:=S/A[1,1];
      end;
  L2:
  case readkey of
  #89:goto L1;
  #121:goto L1;
  #78:exit;
  #110:exit;
  end;
    goto L2;
  End.

Зарание спасибо!