Ассемблер в паскале

program kursach;
const
 maxn=10;
var
 matrA,matrB,matrC,massSum:array[1..maxn,1..maxn] of shortint;
 matrP,tempmatrP:array[1..maxn,1..maxn] of shortint;
 i,j,k,n,m,p,f,r:integer;
 s:shortint;
 baseA,baseB,baseC,baseP,baseX:integer;
begin
 write('Vvedite kolichestvo strok matrici A:');
 readln(n);
 write('Vvedite kolichestvo stolbcov matrici A:');
 readln (m);
 writeln('Vvedite elementi matrici A:');
 for i:=1 to n do
  for j:=1 to  m do
   begin
   write('matrA[',j,',',i,']=');
   readln(matrA[j,i]);
 end;

begin
 write('Vvedite kolichestvo strok matrici B:');
 readln(m);
 write('Vvedite kolichestvo stolbcov matrici B:');
 readln(p);
 writeln('Vvedite elementi matrici B:');
 for i:=1 to m do
  for j:=1 to p do
   begin
   write('matrB[',i,',',j,']=');
   readln(matrB[i,j]);
 end;
 begin
 write('Vvedite kolichestvo strok matrici C:');
 readln(m);
 write('Vvedite kolichestvo stolbcov matrici C:');
 readln(p);
 writeln('Vvedite elementi matrici C:');
 for i:=1 to m do
  for j:=1 to p do
   begin
   write('matrC[',i,',',j,']=');
   readln(matrC[i,j]);
 end;
 END;

asm
mov i,0
mov baseC,0
@@cicls:

mov j,0
@@ciclr:

mov f,0
mov bx,j
mov si,baseC
mov al,byte ptr matrA[bx+si]

inc j
add baseC,maxn
mov ax,n
cmp j,ax
jl @@ciclr

inc i
mov ax,m
cmp i,ax
jl @@cicls

mov i,0
mov baseP,0
@@cicli:

mov j,0
@@ciclj:

mov s,0
mov dl,2
mov bx,baseP
mov si,j
mov al,byte ptr matrB[bx+si]
mov ah,0
imul byte ptr matrB[bx+si]
div dl
add al,byte ptr matrA[bx+si]
sub al,byte ptr matrC[bx+si]

add s,al
add al,byte ptr matrB[bx+si]

mov bx,baseP
mov si,j
mov al,s
mov byte ptr matrP[bx+si],al


mov al,s
mov bx,baseP
mov si,j
mov byte ptr matrP[bx+si],al
mov byte ptr masssum[bx],al
add s,al

inc j
mov ax,p
cmp j,ax
jl @@ciclj

inc i
add baseP,maxn
mov ax, m
cmp i,ax
jl @@cicli

inc j
add baseC,maxn
mov ax,n
cmp j,ax
jl @@ciclr



end;

writeln('ASM result Matrica (A^T+B^2\2)-C:');
for i:=1 to  m do
 begin
 for j:=1 to p do
  write(matrP[i,j],' ');
  writeln;
 end;
writeln('ASM result Matrica A^T:');
 for i:=1 to m do
 begin
 for j:=1 to n do
  write( matrA[i,j],' ');
  writeln;
 end;

writeln('ASM result Matrica Summ:');
for i:=1 to m do
 begin
 for j:=1 to p do
  write( massSum[i,j],' ');
  writeln;
 end;

end;
end.