Из паскаля в ассемблер

  • Автор темы Archiserafim
  • Дата начала
A

Archiserafim

#1
Доброго времени суток.
Не могли бы вы мне помочь с кодом на ассемблере? т.к. с ним пока не очень дружу. Есть код на паскале, как он будет выглядеть на ассемблере?
Код:
Const
A:Array [1..22] Of Char = ('1','H','e','l','l','o','2','W','o','r','l','d','3','I','4','R','u','s','l','a','n','5');

Var CountWord:Byte;
I:Byte;
LongWord:String;
Flag:byte;
TempWord:String;

Begin

CountWord:=0;
LongWord:='';
Flag:=0;
TempWord:='';

For I:=1 To 22 Do
Begin

If A[i] In ['0'..'9'] Then
Begin
If Flag = 1 Then
Begin
Inc(CountWord);
If Length(TempWord) > Length(LongWord) Then LongWord:=TempWord;
Flag:=0;
End;
TempWord:='';
End

Else

Begin
Flag:=1;
TempWord:=TempWord+A[i];
End;

End;
WriteLn('Count Word: ',CountWord);
WriteLn('Long Word: ',LongWord);
readln;
End.