type
Turburo = class
country, date:string;
duration, ex_price, putevka, kol_tourists, total_price: integer;
ex: boolean;
constructor Create;
end;
...
var tur: Turburo;
...
constructor Turburo.Create;
begin
end;
begin
tur := Turburo.Create;
end.