Решить ребус

uses crt;
const
A=#201; B=#205; C=#187; D=#186; E=#200; F=#188;
Procedure Ramka(x1,y1,x2,y2,cl:byte);
var i:byte;
begin
textcolor(cl);
gotoxy(x1-1,y1-1); Write (a);
for i:=x1 to x2 do write(b);
write(c);
for i:=y1 to y2 do
begin
gotoxy(x1-1,i); Write (D);
gotoxy(x2+1,i);write(d);
end;
gotoxy(x1-1,y2+1); write(e);
for i:=x1 to x2 do write (b);
write(f);
end;
procedure Okno(x1,y1,x2,y2,cf,ct:byte);
begin
window(x1,y1,x2,y2);
textbackground(cf);
textcolor(ct);
clrscr;
end;
var s:string;
begin
textbackground(0);
clrscr;
Okno(15,1,65,10,7,0);
gotoXY(22,1);
write('Ребус');
gotoXY(7,10);
write('Выполнил ученик 10б класса Дьяков Сергей');
Okno(15,3,65,8,2,12);
gotoXY(23,1);
write('раз');
gotoXY(22,2);
write('+');
gotoXY(23,3);
write('два');
gotoXY(23,4);
write('---');
gotoXY(24,5);
write('?');
readln;
Okno(15,12,65,17,0,15);
Ramka(2,2,50,4,13);
textcolor(15);
gotoXY(3,2);
write('Введите Ваш ответ: ');
readln(s);
gotoXY(3,3);
if s='гоп' then
 begin
  textcolor(10);
  write('Ответ верный')
 end
else
 begin
  textcolor(12);
  write('Ответ неверный');
  readln;
  Okno(15,18,65,22,0,15);
  Ramka(2,3,50,4,14);
  textcolor(15);
  gotoXY(2,2);
  write('Правильный ответ "гоп" ');
 end;
readln
end.