Написать двумерный массив. найдите среднее арифметическое элементов массива заданных случайным образом [0..20]

Program enot;
Var a: array [1..3,1..3] of integer;
i,j,s:integer;  c: real;
begin
for i:= 1 to 3 do 
 for j:= 1 to 3 do 
 begin
 a[i,j]:= random (20);
 s:=s+a[i,j];
 end;
c:=s/9; 
write(c:4:2);
 end.