Ребята, помогите пожалуйста Даны двумерные массивы A[m,n], B[m,n]. Сформировать двумерный массив Cтакой же размерности, в котором каждый элемент C[i,j] равен среднему арифметическому элементов A[i,j] и B[i,j].

const   n = 5;   m = 5; var   a, b: array[1..n, 1..m] of integer;   c: array[1..n, 1..m] of real;   i, j, s, count: integer; begin   for i := 1 to n do     for j := 1 to m do begin       a[i, j] := random(20);       b[i, j] := random(20);       s := s + a[i, j] + b[i, j];       inc(count);     end;   writeln('Ср. арифметическое эл.: ', s / count);   for i := 1 to n do     for j := 1 to m do begin       c[i, j] := s / count;       write(c[i, j], ' ');       if(j mod m = 0) then writeln;     end; end.