переделать программу

ProgramAsmInPas;
Var
x,y,s : Integer;
{Вариант 1 - ПАСКАЛЬ}
Function Sum1 (x, y: Integer): Integer;
Begin
  Sum1:= 3*x+y*y;
End;
{Вариант 2 - Встроенный Ассемблер - передача параметров по ЗНАЧЕНИЮ}
Function Sum2 (x, y: Integer): Integer;
Begin
ASM
mov ax, x
mov bx,3
imulbx
movbx,ax
movax,y
imul y
add ax, bx
mov @Result, ax
END
End;
 
{Вариант 3 - Ассемблернаяфункция}
Function Sum3 (x, y: Integer):Integer; ASSEMBLER;
ASM
mov ax, x
mov bx,3
imulbx
movbx,ax
movax,y
imul y
add ax, bx
End; 
 
begin
Writeln ('Вычислить: Sum = 3*x+y^2дляданныхтипаInteger;');
Write ('Введите значение x');
Readln (x);
Write (' Введите значение y');
Readln (y);
s:=Sum1 (x, y);
writeln ('pascal: Sum=', 3*x, '+', y*y,'=',s);
s:= 0; {для ЧИСТОТЫ эксперимента}
s:=Sum2 (x, y);
writeln ('Встроенный assembler ');
writeln (' - передача параметров  по ЗНАЧЕНИЮ: Sum= ',3*x,' +', y*y,'=',s);
s:=0;
s:=Sum3 (x,y);
writeln ('assemblerфункция: sum= ', 3*x, '+', y*y, '=', s);
writeln (' Нажмителюбуюклавишу ....');
Readln
end.