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

[ромка)]

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

const n=4;
type pinteger=^integer;
A4:array[1..n,1..n] of integer;
PA4= ^A4;
var
i,j:integer;
s:pinteger;
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.

[pil69]

Попробуй

A4:array[1..n,1..n] of integer;

заменить на

A4=array[1..n,1..n] of integer;

Ты же даешь описание типа, а не переменной.
Появится время, проверю твою программу

[pil69]

s^:=s+a[I,j]

на

s^:=s^+a^[I,j]