Исправте программу.Ссылочные типы данных. Динамическая память

[ромка)]

Дана матрица целых чисел размером 4x4. Определите сумму элементов расположенных выше главной диагонали. Результат вывести на экран монитора.

Код: Выделить всё

const n=4;
type pinteger=^integer;
A4:array[1..n,1..n] of integer;
PA4= ^A4;
var
i,j:integer;
s :p integer;
A:PA4;
Begin
Clrscr;
new(a); new(s);
Randomize;
S:=0;
For i:=1 to n do
 For j:=1 to n do
A^[I,j]:=random(10);
For i:=1 to n do
 For j:=1 to n do
Write(a^[I,j];writeln;
End;
For i:=1 to n do
 For j:=1 to n do
If i<j then s^:=s+a[I,j];
Writeln(‘s=’,s^);
dispose(A); dispose(S);
End.

[quote="ромка)"]Дана матрица целых чисел размером 4x4. Определите сумму элементов расположенных выше главной диагонали. Результат вывести на экран монитора.
Исправте пожалуйста

Код: Выделить всё

uses crt;
const n=4;
type pinteger=^integer;
A4:array[1..n,1..n] of integer;
PA4= ^A4;
var
i,j:integer;
s :p integer;
A:PA4;
Begin
Clrscr;
new(a); new(s);
Randomize;
S^:=0;
For i:=1 to n do
 For j:=1 to n do
A^[I,j]:=random(10);
For i:=1 to n do
 For j:=1 to n do
Write(a^[I,j]);writeln;
End;
For i:=1 to n do
 For j:=1 to n do
If i<j then s^:=s+a[I,j];
Writeln(‘s=’,s^);
dispose(A); dispose(S);
End.

ой извиняюсь затупил

Помогите кто нибудь чайнику