Паскаль матрица!!!!!

[Igomax]

Вот задача: создать модуль содержащий следующие подпрограммы:

ввода-вывода произвольной матрицы;
умножения матрицы на число;
сложение произвольных матриц;
вычитание матриц;
проверяет возможность умножения 2-х матриц
умножение матриц

Даны А,В.С используя модуль, вычислить С*А-4*В*А

Если не можете решить то хотябы подскажите как первый модуль сделать и как к нему обращаться. А то у меня ерунда какая-то получается

PHP код:

program gg;
const n=3; m=4;
type mas1=array[1..n] of integer;
mas2=array[1..m] of mas1;
procedure vvod (var A:mas1;B:mas2);
var i,j:integer;
begin
randomize;
for i:=1 to n do begin writeln;
for j:=1 to m do begin a[i,j]:=random(10);
for i:=1 to n do begin writeln;
for j:=1 to m do write(a[i,j]:6); end;
vvod:=a[i,j];
begin
vvod(a[i,j])
write(a[i,j]);
end. 


[Igomax]

Подскажите очень надо

[Igomax]

PHP код:

unit matr;
interface
const n=3;
type ma=array [1..n,1..n] of integer;
procedure vvod(var m:ma);
procedure ymnch(m:ma; var m1:ma; k:integer);
procedure slog(m1,m2:ma; var m:ma);
procedure vich(m1,m2:ma; var m:ma);
procedure ymn(m1,m2:ma; var m:ma);
procedure vivod(var m:ma);

implementation

procedure vvod(var m:ma);
var i,j:Integer;
 begin
 randomize;
 for i:=1 to n do begin writeln;
 for j:=1 to n do m[i,j]:=random(30)-10; end;
 end;

procedure vivod(var m:ma);
var i,j:Integer;
 begin
for i:=1 to n do begin writeln;
 for j:=1 to n do write(m[i,j]:6); end;
writeln
end;

procedure ymnch(m:ma; var m1:ma; k:integer);
var i,j:Integer;
 begin
for i:=1 to n do
for j:=1 to n do m1[i,j]:=m[i,j]*k;
 end;

procedure slog(m1,m2:ma; var m:ma);
var i,j:Integer;
 begin
for i:=1 to n do
for j:=1 to n do m[i,j]:=m1[i,j]+m2[i,j];
 end;

procedure vich(m1,m2:ma; var m:ma);
var i,j:Integer;
 begin
for i:=1 to n do
for j:=1 to n do m[i,j]:=m1[i,j]-m2[i,j];
 end;

procedure ymn(m1,m2:ma; var m:ma);
var i,j,k:byte;
begin
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
m[i,j]:=m[i,j]+m1[i,k]*m2[k,j];
end;


end. 


[Igomax]

PHP код:

program hh;
uses matr;
var a,b1,b,c,b1a,ca,r:ma;
k:integer;
begin
write ('vvedite k= ');
readln(k);
writeln ('matricha A');
vvod(a);
vivod(a);
writeln ('matricha B');
vvod(b);
vivod(b);
writeln ('matricha C');
vvod(c);
vivod(c);
ymnch(b,b1,k);
ymn(b1,a,b1a);
ymn(c,a,ca);
vich(ca,b1a,r);
vivod (r);
end. 


Только она не работает правильно помогите исправить