procedure SearchPenek(nasha_tochka, tuta, tama);
if result = 'Penek naiden!' then
get := SearchPenek.location;
if get>0 and get = 1 then
go_to_Procedure : ZaprosToKosar;
procedure ZaprosToKosar(malo, KOSAR);
if malo + kosar then
begin
pid**bl**_message := 'KAK Y*** S***!!!';
pid**bl**_message.SHOW := TRUE;
end;
Предлагаем свои варианты