Pascal/Turbo Pascal - ayuuudaaa!!!

hola necesito un GRAN favor espero que me eyuden:
necesito un programa en turbo pascal que multiplique dos matrices cualquiera que sea muy simple, basico y entendible.
se lo agradeceria muchisimo
chaoo

hola loca
con esto te ayudo con lo que pides chao
esta clarito.............

program matriz;
type matriz=array[1..2,1..2]of integer;

var a,b,c:matriz;
d,opcion:integer;
salir:boolean;
i,j,k:integer;
valor:integer;
function menu:integer;
var op:integer;
begin
writeln('1.- suma de matriz');
writeln('2.- multiplicacion dematriz');
writeln('3.- traza de matriz');
writeln('4.- traspuesta de un matriz');
writeln('5.- salir');
repeat
write('seleccione una opcion: ');
readln(op);
until op in [1..5];
menu:=op;
end;

procedure ingreso(var x:matriz);
begin
writeln('ingrese los valores de la matriz');
for i:=1 to 2 do
for j:=1 to 2 do
begin
write('registro [',i,',',j,'] = ');
readln(valor);
x[i,j]:=(valor);
end;
end;

procedure suma(x,y:matriz;var z:matriz);
begin
for i:=1 to 2 do
for j:=1 to 2 do
begin
z[i,j]:=x[i,j]+y[i,j];
end;
end;

procedure traspuesta(x:matriz;var z:matriz);
begin
for i:=1 to 2 do
for j:=1 to 2 do
begin
z[i,j]:=x[j,i];
end;
end;

procedure multiplicac