Разработать паскаль-программу…

… vara: array [1… 100,1… 100] of integer; n,m,i,j: byte; sr: real; sum: integer; begin clrscr; writeln ('Введи кол-во строк: '); readln (n); writeln ('Столобцов: '); readln (m); randomize; for i: =1 to n do for j: =1 to m do a[i,j]: =random (10)+0; sum: =0; for i: =1 to n do for j: =1 to m do sum: =sum+a[i,j]; sr: =sum/ (n*m); writeln ('Среднее арифметичексое: ',sr); readkey; end. P.S. Могу напутать с типами данных