Pascal/Turbo Pascal - Matriz

Realizar el pseudocódigo y el programa en pascal para determinar, dadas las siguientes matrices de orden mxn, el valor de la matriz D.

D = 3.A – B + C

(*
D = 3.A – B + C
*)

uses crt ;
const
fi = 2;
co = 3;
type
matriz = array[1..fi,1..co] of integer ;
var
a, b,c,d : matriz ;

function expresion(aaa,bbb,ccc:integer):integer;
begin
expresion := 3 * aaa - bbb + ccc ;
end;

procedure llenar(var x :matriz);
var
i, j : Byte;
begin
Randomize();
for i := 1 to fi do
begin
for j := 1 to co do
begin
x[i,j]:= random(100);
end;
end;
end;

procedure mostrar(var x :matriz);
var
i, j : Byte;
begin
for i := 1 to fi do
begin
for j := 1 to co do
begin
write(x[i,j]:5);
end;
WriteLn;
end;
end;

procedure llenarddd(aa,bb,cc : matriz; var x :matriz);
var
i, j : Byte;
begin
for i := 1 to fi do
begin
for j := 1 to co do
begin
x[i,j]:= expresion(a[i,j], b[i,j],c[i,j]);
end;
end;
for i := 1 to fi do
begin
for j := 1 to co do
begin
write(x[i,j]:5);
end;
WriteLn;
end;
end;

/// principal
begin
clrscr;
llenar(a);
writeln(' Matriz A');
mostrar(a);

llenar(b);
writeln(' Matriz B');
mostrar(b);

llenar(c);
writeln(' Matriz C');
mostrar(c);

writeln(' Matriz D');
writeln(' D = 3×A – B + C ');

llenarddd(a,b,c,d);




readln;

end.

Muchas gracias!