Найти разность и произведение матриц

type mtr=array[,] of integer;//динамический двумерный массив в АВС.net
var n:byte;//размер массивов, все одинаковые и квадратные
procedure vvod(var a:mtr;c:char);//процедура создания исходных массивов
var i,j:byte;
begin
writeln('Матрица ',c);
setlength(a,n,n);
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
   begin
    a[i,j]:=1+random(5);
    write(a[i,j]:3);
   end;
  writeln
 end;
end; 
var r,s,t,st,rz:mtr;
    i,j,k:byte;
begin
randomize;
write('Размер матриц n=');
readln(n);
vvod(r,'R');
vvod(s,'S');
vvod(t,'T');
setlength(st,n,n);//выделяем память по массив S*T
for i:=0 to n-1 do//умножаем S на Т
for j:=0 to n-1 do
 begin
  st[i,j]:=0;
  for k:=0 to n-1 do
  st[i,j]:=st[i,j]+s[i,k]*t[k,j]; //складываем произведения строк первой матрицы на столбцы второй
 end;
setlength(rz,n,n); //выделяем память под результирующий массив
writeln('Матрица RZ=-3*R-S*T') ;
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
   begin
    rz[i,j]:=-3*r[i,j]-st[i,j];//из элементов R, умноженных на -3 
                               //вычитаем элементы массива S*T 
    write(rz[i,j]:4)
   end;
  writeln;
 end; 
 
end.