Unit SledNorm;
Interface
uses Crt;
Const MaxDl=30;
Type Tind=1..MaxDl;
     Tmas=array[Tind,Tind] of integer;
     Zap1=record
          massive: Tmas;
          size,
          number: integer;
          end;
     Zap =record
          mass: Tmas;
          razmer,
          sled,
          norma: integer;
          end;
procedure obr(N:integer);
Implementation
procedure obr(N:integer);
var
sled,norma,sum:integer;
i,j:integer;
Zapis:zap;
Zapis1:zap1;
mas: array[Tind] of integer;
f: file of zap;
fi:file of zap1;
BEGIN
   {$I-}
   assign(fi,'C:\fil.txt');
   reset(fi);
   {$I+}
   repeat
      read(fi,zapis1);
   until (zapis1.number=N);
   sled:=0;
   for i:=1 to zapis1.size do
       sled:=sled+zapis1.massive[i,i];
   sum:=0;
   for j:=1 to  zapis1.size do
       Begin
        for i:=1 to  zapis1.size do
         begin
           sum:=sum+abs(zapis1.massive[i,j]);
           if i= zapis1.size then begin mas[j]:=sum;sum:=0;end;
         end
       End;
   norma:=mas[1];
   for i:=2 to  zapis1.size do
   if Mas[i]>norma then norma:=mas[i];
{$I-}
assign(f,'C:\exit.txt');
rewrite(f);
{$I+}
Zapis.mass:=Zapis1.massive;
ZApis.razmer:=Zapis1.size;
Zapis.sled:=sled;
Zapis.norma:=norma;
Write(f,Zapis);
close(f);
END;
End.
а именно в ассемблер нужно переделать вот этот кусок
for i:=2 to  zapis1.size do
   if Mas[i]>norma then norma:=mas[i];