Определить среднее арифметическое елементов массива

uses crt;
var
   a:array[1..100,1..100] of integer;
   i,j,z,n,m,s:integer;
begin
clrscr;
write('Ââåäèòå êîëè÷åñòâî ñòðîê=');
readln(n);
write('Ââåäèòå êîëè÷åñòâî ñòîëáöîâ=');
readln(m);
writeln('Èñõîäíàÿ ìàòðèöà');
randomize;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(101);
    write(a[i,j]:4);
    if (a[i,j]<50)then
     begin
      inc(z);
      s:=s+a[i,j];
     end;
   end;
  writeln;
 end;
writeln('Ñðåäíåå àðèôìåòè÷åñêîå ',s/z);
readln
end.

uses crt;
var a:array[1..10,1..10] of integer;
    d:array[1..10] of integer;
i,n,j,k:integer;
s,t:real;
begin
clrscr;
randomize;
write('введите количеставо строк и столбцов: ');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=random(100);
end;
writeln('введенный массив: ');
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j]:3);
end;
writeln;
writeln;
end;
s:=0;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
if a[i,j]<50 then
begin
k:=k+1;
d[k]:=a[i,j];
end;
end;
end;
writeln('полученный массив: ');
for i:=1 to k do
begin
write(' ',d[i]:2);
end;
writeln;
for i:=1 to k do
begin
s:=s+d[i]/k;
end;
writeln('среднее арифметическое ',s:2:2);
end;
readkey;
end.