Movies as code

program yes_man;
uses
crt;
procedure Say(what:string);
begin
writeln(what);
end;
procedure Answer(question:string);
begin
if question ='do you want to give some part of your moneys?' then
Say('How much?')
else
Say('Yes');
end;
Procedure StartTalking();
var
quest: string;
begin
readln(quest);
Answer(quest);
readln();
end;
begin
clrscr;
StartTalking();
end.