Вот по этой формуле достаточно просто, насчет других СС я не поняла, не приходилось как-то...
Программа должна выглядеть вот так:
program simvol;
const
n=5;
var
A:array[1..n,1 ..n]of integer;
i, j:integer;
Begin;
for i:=1 to n do
begin
for j:=1 to n do
(A[i,j]):=random(100);
write(A[i,j]:4);
end;
writeln;
end.
Вы не объявили переменные i и j, так же допустили сиснтаксические ошибки.