Дана матрица (15 строк и 10 столбцов), которая должна быть заполнена цифрами от 2 до 5 . Найти среднее значение всех элементов матрицы, Среднее значение каждого столбца, найти строки где имеется одна цифра 3 — Pascal(Паскаль)

program tmp;
uses crt;
const
     m=15;
     n=10;
var
   i,j,k,s,sum:integer;
   mas:array[1..m,1..n] of integer;
   masx:array[1..m] of real;
begin
clrscr;
randomize;
for i:=1 to m do begin
    for j:=1 to n do begin
                     repeat
                     mas[i,j]:=random(6);
                     until mas[i,j]>2;
                     write(mas[i,j]:3);
                     end;
                 writeln;
                 end;
s:=0;
for i:=1 to m do
    for j:=1 to n do s:=s+mas[i,j];
write('srznach matr: ',s/(m*n):2:2);
writeln;
writeln;
for j:=1 to n do begin
    sum:=0;
    for i:=1 to m do sum:=sum+mas[i,j];
    write('sr znach ',j,'-go stolbtsa= ',sum/m:2:2);
                 writeln;
                 end;
writeln;
writeln;
for i:=1 to m do begin
    k:=0;
    for j:=1 to n do if mas[i,j]=3 then k:=k+1;
    if k=0 then begin
    write(i,'-ya stroka');
    writeln;
    end;
    end;
readkey;
end.