Написать программу нахождения среднего арифметического элементов в массиве [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.