нужно отладить программу по двумерным массивам(Pascal)

[Вероника_94]

uses crt;
var
a:array[1..10,1..10] of integer;
b:array[1..10,1..10] of integer;
c:array[1..10,1..10] of integer;
d:array[1..10,1..10] of integer;
e:array[1..10,1..10] of integer;
f:array[1..10,1..10] of integer;
g:array[1..10,1..10] of integer;
h:array[1..10,1..10] of integer;
i,j,n,m,sp,s,l:integer;
begin
clrscr;
randomize;
repeat
writeln('Каким способом формирования матриц будем пользоваться?');
writeln('1: Формирование случайным образом');
writeln('2: Формирование вручную');
write('Введите способ формирование матриц=');
readln(sp);
case sp of
1: begin
write('Введите размер матриц=');
readln(n);
writeln('Формирование матрицы A:');
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(5);
write(a[i,j]:5);
end;
writeln;
end;
writeln('Формирование матрицы B:');
for i:=1 to n do begin
for j:=1 to n do begin
b[i,j]:=random(5);
write(b[i,j]:5);
end;
writeln;
end;
writeln('Формирование матрицы C');
for i:=1 to n do begin
for j:=1 to n do begin
c[i,j]:=random(5);
write(c[i,j]:5);
end;
writeln;
end;
end;
2: begin
write('Введите размер матриц=');
readln(n);
writeln('Формирование матрицы A:');
for i:=1 to n do begin
for j:=1 to n do begin
read(a[i,j]);
end;
write;
end;
writeln('Формирование матрицы B:');
for i:=1 to n do begin
for j:=1 to n do begin
read(a[i,j]);
end;
write;
end;
writeln('Формирование матрицы C:');
for i:=1 to n do begin
for j:=1 to n do begin
read(a[i,j]);
end;
write;
end;
end;
else writeln('Ошибка, введите заново=');
end;
until (sp>1) or (sp<3);
readln;
writeln('A*B:');
s:=0;
for i:=1 to n do begin
for j:=1 to n do begin
for l:=1 to n do begin
s:=s+a[i,l]*b[l,j];
end;
e[i,j]:=s;
s:=0;
end;
end;
for i:=1 to n do begin
for j:=1 to n do begin
write(e[i,j]:5);
end;
writeln;
end;
writeln('3*B');
for i:=1 to n do begin
for j:=1 to n do begin
s:=s+(3*b[i,j]);
end;
f[i,j]:=s;
s:=0;
end;
for i:=1 to n do begin
for j:=1 to n do begin
write(f[i,j]:5)
end;
writeln;
end;
writeln('Транспонирование матрицы C:');
for i:=1 to n do begin
for j:=1 to n do begin
c[i,j]:=c[j,i];
end;
end;
for i:=1 to n do begin
for j:=1 to n do begin
write(c[i,j]:5);
end;
writeln;
end;
writeln('Подсчёт матрицы D по формуле: D=AB+3B-C^T:');
for i:=1 to n do begin
for j:=1 to n do begin
d[i,j]:=e[i,j]+f[i,j]-c[j,i];
write(d[i,j]:5);
end;
writeln;
end;
readln;
end.



Необходимо отладить подсчёт 3*B и транспонирование матрицы C. Остальное работает корректно. Заранее спасибо