procedure SayHello;
begin
 { tworzymy okienko }
 { wywietlamy w nim napis "Hello" }
 { zamykamy okienko }
end;