переделать программу с паскаля на асемблер

[neee]

задача вроде проста

program asm;
uses crt;
var s,d:string;
    i:integer;
    n:boolean;
begin
     writeln('vvedite..');
     readln(s);
     while n=false do
     begin
          i:=i+1;
          if (s[i]='!')or(s[i]='.')or(s[i]='?') then
          begin
               n:=true;
               d:=copy(s,1,i);
          end;
     end;
delete(s,1,i+1);
s:=s+' '+d;
writeln(s);
readln;
end.

смысл задания таков:
дано 4 предложения необходимо переставить первое предолжение в конец (а остальные сместить вперед) и вывести это дело на экран. (необходимо сдеать в tiny и medium)