Процедуры и функции.

[ViktorStarik]

Ребят помогите, найдите ошибку. Задача такая, необходимо ввести матрицу, сформировать ей единичную и перемножить нашу матрицу с единичной.

program L72;
uses crt;
type MassivA=array[1..3,1..3] of longint;
var
    a,ea,e1:MassivA;
    i,j:integer;
procedure vvodmas(var a:MassivA);

         begin
               writeln('vvodim massiv');
               for i:=1 to 3 do
                 begin
                   for j:=1 to 3 do
                      begin
                      write('a[',i,j,']=');
                      readln(a[i,j]);
                      end;
                 end;
         end;

procedure vyvod(a:MassivA);

         begin
              for i:=1 to 3 do
                 begin
                   for j:=1 to 3 do
                     write(a[i,j],' ');
                     writeln;
                 end;
          end;
          
procedure vvodmas4(var e1:MassivA);

         begin
         clrscr;
         for i:=1 to 3 do
           for j:=1 to 3 do
             if i=j then e1[i,j]:=1
             else e1[i,j]:=0;
         for i:=1 to 3 do
           begin
             for j:=1 to 3 do
               write (e1[i,j],' ');
               writeln;
           end;
         end;

procedure mult(var ea:MassivA);
         var i,j,k: integer;
             a,e1:MassivA;
         begin
           for i:=1 to 3 do
             for j:=1 to 3 do
               begin
                  ea[i,j]:=0;
                  for k:=1 to 3 do
                  ea[i,j]:=ea[i,j]+a[i,k]*e1[k,j];
               end;
         end;
procedure printmult(ea:MassivA);
          begin
           for i:=1 to 3 do
             begin
               for j:=1 to 3 do
                 write(ea[i,j],' ');
                 writeln;
               end;
         end;
begin
clrscr;
vvodmas(a);
vyvod(a);

vvodmas4(e1);
printmult(ea);
readln;
end.

Заранее спасибо.

[Leshii]

А откомпилировать не пробовали ?) Если компильнули напишите тогда где же она выскочила та ошибка.

[unbanned]

а если счетчики циклов в процедурах описать?