перевести программу с паскаль на ассемблер или предложить другое решение.

[Varra]

Нужно посчитать кол-во согласных в набранной фразе.
Пример решения на паскале:

 
uses crt;
const
     soglasn = ('BbCcDdFfGgHhJjKkLlMmNnPpQqRrSsTtVvWwXxYyZz'+
               'БбВвГгДдЖжЗзЙйКкЛлМмНнПпРрСсТтФфХхЦцЧчШшЩщ');
    
var i,j,sum_soglasn:integer;
    s:string;
    
BEGIN
    write('Введите строку :');
    readln(s);

    for i:=1 to length(s) do
      for j:=1 to length(soglasn) do
         if s[i] = soglasn[j]
            then sum_soglasn:=sum_soglasn+1;

 
    writeln('согласных в слове :',sum_soglasn);
    writeln;
    
 
END.

У кого какие предложения? Чем проще вариант, тем лучше. Зарание спасибо.

[Varra]

Реализация программы через TASM.

[Varra]

задача решена