Turbo Assembler Опции

[ффф]

:flowers:

Код

program oo;
uses crt;

var
 a: array[1 ..20 , 1 .. 20] of integer;
 n,m:integer;

function is_local_min(i, j: integer): boolean;
var
b: boolean;
ii, jj: integer;
begin
 b := true;

 for ii := pred(i) to succ(i) do
   for jj := pred(j) to succ(j) do
     if (ii in [1 .. n]) and (jj in [1 .. m]) then
       if (ii = i) and (jj = j) then continue
       else b := b and (a[ii, jj] > a[i, j]);
 is_local_min := b;
end;

var
 i, j: integer;
begin
 writeln('');
 write('stroki'); readln(n);
 write('stolbci'); readln(m);
 writeln('vvedite elementi matrici;');
 for i:=1 to n do
   for j:=1 to m do begin
     write('a[',i, ',',j,']=');
     readln(a[i,j]);
   end;
 writeln;
 readln;

 writeln(' results: ');
 for i := 1 to n do
   for j := 1 to m do
     if is_local_min(i, j) then begin
       writeln('a[',i,',',j,'] = ',a[i, j]);
     end;
end.

не могли бы помочь выполнить эту прогу на ТУРБО АССЕБЛЕРЕ(тот что встроен в паскаль)) плизззз оч надо