Помогите с матрицами в Паскале

[Veselyn]

Помогите пожалуйста!!! Очень нужно сделать лабораторку по пограмируванию. Пересмотрел море литературы... вытоге ненашол того что искал и запутался . Помогите кото чем сможет.
Дана квадратная матрица. Найти средне арифметическое из всех положительных элементов этой матрицы. Размер матрицы и значение ее элементов задать самостоятельно.

[Sazary]

Veselyn

Перечитал море литературы...

сомневаюсь.. На будущее: не пишите красным.

uses crt;
const n=5;
var
mas : array[1..n,1..n] of integer;
i,j,k : integer;
sred : real;
begin
clrscr;
randomize;
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  mas[i,j] := random(20)-7;
  write(mas[i,j]:4);
  end;
 writeln;
 end;
writeln('--------');
{------}
sred := 0;
k:=0;
for i:=1 to n do
  for j:=1 to n do
   if mas[i,j] > 0 then
     begin
     sred := sred + mas[i,j];
     inc(k);
     end;

sred := sred / k;
writeln('Sred = ',sred:5:2);
readln;
end.

[Veselyn]

Sazary Огромное СПАСИБИЩЕ

[Veselyn]

Если кото захочет втупую взять код то знайте:
for i:=1 to n do
for j:=1 to n do
if mas[i,j] > 0 then
begin
sred := sred + mas[i,j];
inc(k);
else sred:=sred;
k:=k;
end;

[maladoy]

else sred:=sred;
k:=k;
end;

а это зачем??? и перед else ";" не ставится!!!!