Подпрограммы и обработка матриц

[LegionuS]

uses crt;
var
  a:array[1..10,1..10] of real;
  n:integer;
procedure vvod;
var
  i,j:integer;
begin
  repeat
  writeln('Введите n от 1 до 10 и заполните матрицу = ');
  readln(n);
  until n in [1..10];
  for i:= 1 to n do
  begin
  for j:= 1 to n do
  begin
  write('a[',i,';',j,']:=');
  readln(a[i,j]);
  end;
  end;
end;

procedure vivod;
var
  i,j:integer;
begin
  for i:= 1 to n do begin
    writeln;
    for j:= 1 to n do
    write(a[i,j]:0:0);
  end;
  writeln;
end;

procedure sar;
var
  i,j,kol:integer;
  sum,sr:real;
begin
  sum:= 0;
  kol:=0;
  for i:= 1 to n do
  for j:= 1 to n do
  if a[i,j] > 0 then
  begin
  sum:= sum + a[i,j];
  inc(kol);
  sr:=sum/kol;
  end;
  writeln('Среднее арифмитическое = ',sr:0:0);
  readln;
end;

begin
  clrscr;
  vvod;
  vivod;
  sar;
end.

Всё вот решеное пользуйтесь кому пригодиться удачи!