Окна и клавиши Опции

[Димас]

Как например можно сделать такое окно на Турбо Паскале:



и как написать, например когда я нажимаю клавишу f1 то оно это окно закрыло(очистило), и открыло что то на подобие такого:

[Артемий]

uses crt,graph;
var
D,M,x,y:integer;
begin
D:=detect;
Initgraph(D,M,'');
 for x:=getmaxx div 4 to getmaxx-(getmaxx div 4) do begin
  for y:=getmaxy-(getmaxy div 4) downto (getmaxy div 4) do begin
   PutPixel(X,Y,Cyan);
  end;
 end;
rectangle(getmaxx div 4,getmaxy-(getmaxy div 4),getmaxx-(getmaxx div 4),getmaxy div 4);
OutTextXY(getmaxx div 4,(getmaxy div 4)+2,'This is string');
OutTextXY(getmaxx div 4,(getmaxy div 4)+15,'This is second string');
readln
end.

Вот так пойдет?

[Димас]

Вот так пойдет?

не работает чета