Очень нужна помощь, вычисление матричного выражения Опции

[Kirill_spb]

Люди пожайлуста помогите с прогой, я совсем чайник в паскале. Можете проверить на правильность?
Задача такова:
1. Разработать программы на языке Turbo Pascal для вычисления заданного матричного выражения
(А3х2-(В2х3)Т)*С2х4
Т - транспонирование

program proga1;
uses crt;
var
A:array[1..3,1..2] of integer;
B:array[1..2,1..3] of integer;
C:array[1..2,1..4] of integer;
ab:array[1..3,1..2] of integer;
abc:array[1..3,1..4] of integer;
i,j,n,k,l,m:integer;
f,f1,f2:text;
begin
n:=3;
m:=2;
k:=4;
 clrscr;
{a}
writeln;
assign (f,'matrix.txt');
reset(f);
i:=1; j:=1;
while not eof(f) do begin
 while not eoln(f) do begin
 read(f,a[i,j]);
 inc(j); j:=1;
          end;
close(f);
    assign (f1,'matrixb.txt');
reset(f1);
{b}
i:=1; j:=1;
   while not eof(f1) do begin
     while not eoln(f1) do begin
        read(f1,b[i,j]);
           inc(j);
        end;
        j:=1; inc(i); readln(f1);
                    end;

{c}
assign(f2,'matrixc.txt');
reset(f2);
i:=1; j:=1;

while not eof(f2) do begin
while not eoln(f2) do begin
      read(f2,c[i,j]);
      inc(j);
      end;
      inc(i); j:=1; readln(f2);
                  end;

    {    writeln('--a--')'
    for i:=1 to 3 do begin
    for J:=1 to 2 do begin
    write(a[i,j],'  ')'
    end;
       writeln;
       end;
            writeln('--b--');
            for i:=1 to 2 do begin
             for j:=1 to 3 do begin
              write(b[i,j],' ');
       end;
           writeln;

       end;
               write('--c--');
       for i:=1 to 3 do begin
       for j:=1 to 4 do begin
        write(c[i,j],'  ');
        end;
            write;
                   end;
                   readln;


            }

  {a-bT}
writeln('ab');
for i:=1 to 3 do begin
for j:=1 to 2 do begin
ab[i,j]:=a[i,j]-b[j,i];
write(ab[i,j],' ');
end;
 writeln;
end;
readln;
end;

{AB*C}
i:=1;
while i<=n do begin
j:=1;
while j<=k do begin
{writeln(j,'',1,'m',m);}
abc[i,j]:=0;
l:=1;
while l<=m do begin
{writeln('ab[',i,',',l,']=',a[i,l],' c[',l,',',i,']=',c[i,l])}
abc[i,j]:=ab[i,j]+ab[i,l]*c[1,j];
{writeln('abc[',i,',',j,']=', abc[i,j]);}
{readln;}
{ inc(1); } l:=l+1;
{ writeln(l,'',l,'m',m); }
end;
i:=i+1;
{readln;}
end;
writeln('resultat');
for i:=1 to 3 do begin
for j:=1 to 4 do begin
write(abc[i,j],'');
end;
writeln;
end;
readln;
end;
readln;
end.