матрица, сумма элементов Опции

[Римус]

Люди , помогите пожалуйста решить задачу.
ЗАДАНИЕ 1. Дана матрица D(n*m). Найти сумму элементов по каждому столб¬цу, разделив её на максимальный диагональный элемент.

program pract11_1;
const n=3;m=3;
type mas=array[1..n,1..m] of integer;
     mas2=array[1..n] of integer;
var j,i:integer; a:mas2; d:mas; s:integer; max:mas2;
begin
  for i:=1 to n do
  for j:=1 to m do 
    begin
    writeln('vvedite ',i,',',j,' element matrici');
    read(d[i,j]);
    end;
 for J:=1 to m do 
       begin
       s:=0;
       for i:=1 to n do
       s:=s+d[i,j];
       a[i]:=s;
       end;
for i:=1 to n do
max:=d[1,1];
if d[i,i]>max then max:=d[i,i];
a[i]:=s/max;
writeln('stolbec',i,'stoki',a[i]:8);
end.