Указатели

[Mango]

Здравствуйте, очень прошу помочь в работе с указателями..
задача такая
Дан массив d размерностью 300 на 300. Найти максимальное значение среди сумм элементов каждой строки.

я уже начала ее решать, но там где-то необходимо написать как находится сумма в массиве..а я в Delphi почти не разбираюсь((((
вот что начала..
Const n=300;
Type d3=array[1..n] of integer;
dP=^d3;
tdP=array[1..n] of dP;
Var d:tdP;
i,j,S,k:integer;
begin
k:=0;
for i:=1 to n do begin
New (d[i]);
S:=0;
for j:=1 to n do begin
d[i]^[j]:=random(10);
S:=S+d[i]^[j];
end;

[Greblin]

Жестоко, писать нахождение максимальной суммы элементов строки через указатели...

program parraysum;

const n = 300;

type d3 = array[1..n] of integer;
     td3 = ^d3;
     tdp = array[1..n] of td3;

var d: tdp;
    i, j, max, s: integer;

begin
randomize;
new(d[1]);
s := 0;
for j := 1 to n do
  begin d[1]^[j] := random(10); s := s + d[1]^[j] end;
max := s;
for i := 2 to n do
  begin
  s := 0;
  new(d[i]);
  for j := 1 to n do
    begin d[i]^[j] := random(10); s := s + d[i]^[j] end;
  if s > max then max := s
  end;
writeln(max);
end.

[Mango]

Все получилось) спасибо)))