Написать программу нахождения среднего арифметического элементов в массиве [5 х5]

Var a: array[1 ... 5,1 ... 5] of integer;

s, i, j:integer;

begin

s:=0;

for i:=1 to 5 do begin

for j:=1 to 5 do begin

a[i][j]:=random (-10,10);

s+=a[i][j];

write (a[i][j]:3);

end;

writeln ();

end;

writeln (s/25);

end.