Модуль пользователя и ошибка "Отказано в доступе"

Unit PP;
interface
const n=3;
type
ms=array[1..n,1..n]of integer;
var
a,b,c:ms;
i,j,l,g:integer;
procedure poisk(x,y:ms; var u:ms);
procedure vvod (var k:ms);
procedure vivod(c:ms);
IMPLEMENTATION
procedure vivod(c:ms);
var i,j:integer;
begin
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(c[i,j]:3);
writeln
end;
end;
procedure poisk(x,y:ms; var u:ms);
  var i,j,z,t:integer;
  begin
  for t:=1 to n do
  begin
  g:=0;
  for j:=1 to n do
  begin
  z:=a[t,j];
   for i:=t to t do
   begin
    if b[1,i]<>z then 
    if b[2,i]<>z then 
    if b[3,i]<>z then g:=g+z;
    end;
    u[1,t]:=g;
    end;
    end;
      for t:=1 to n do
  begin
  g:=0;
  for j:=1 to n do
  begin
  z:=a[t,j];
   for i:=t to t do
   begin
    if b[1,i]<>z then 
    if b[2,i]<>z then 
    if b[3,i]<>z then g:=g+z;
    end;
    u[2,t]:=g;
    end;
    end;
      for t:=1 to n do
  begin
  g:=0;
  for j:=1 to n do
  begin
  z:=a[t,j];
   for i:=t to t do
   begin
    if b[1,i]<>z then 
    if b[2,i]<>z then 
    if b[3,i]<>z then g:=g+z;
    end;
    u[3,t]:=g;
    end;
    end;
  end;
 procedure vvod (var k:ms);
   var
   p,l:integer;
  begin
   Writeln('Матрица');
    For p:=1 to n do 
     Begin
     For l:=1 to n do
       read(k[p,l]);
     Writeln;
     End;
      for p:=1 to n do
      begin
       for l:=1 to n do
       write(k[p,l] :5);
       writeln;
       end;
       end;
end.

Program xyz;
uses PP;
begin
vvod(a);
vvod(b);
poisk(a,b,c);
vivod(c);
end.