Ассемблер и Паскаль((((

[Галька]

нужно написать на паскале и на ассемблере

Имеется строка длиной до 100 символов, в которой несколько раз встречается сочетание "real". Сформировать строку,содержащую вместо указанного сочетания строку с сочетанием "double".

и по возможности объяснить что каждая строка программы делает(

[BDA]

Вот решение на паскале

uses crt;
var
s:string;
procedure replacerec(var s: string; in1, out1: string);
var
  i: word;
begin
  if pos(in1, s) = 0 then
    exit;
  i := pos(in1, s);
  delete(s, i, length(in1));
  replacerec(s, in1, out1);
  insert(out1, s, i);
end;
begin
readln(s);
replacerec(s,'real','double');
writeln(s);
end.

Уточните, какой именно ассемблер (но вряд ли с ним помогу).