Объявить класс «Вокзал» с указанием полей: название вокзала, местонахождение (название города), число направлений, поток пассажиров.

program Telzvonk_obijvl_class;
type Telzvonk=class
  private
   numb:uint64;//номер тел
   data:string;//дата звонка
   time:integer;//длительность звонка
   kod:integer;//код города
   opis:real;//описание звонка
  public
   constructor (s:real;n:uint64;t,k:integer;d:string);
   procedure print;
  end;
  //------------------------------------------------
 constructor Telzvonk.create(s:real;n:uint64;t,k:integer;d:string);
 begin 
 writeln('описание звонка: ');
 writeln('номер');readln(s); opis:=s;
 writeln('дата');readln(d); data:=d; 
 writeln('ном тел');readln(n); numb:=n;
 writeln('длительность');readln(t); time:=t; 
 writeln('код города');readln(k); kod:=k;
 end;
 //--------------------------------------------------
 procedure Telzvonk.print;
 begin
 writeln('Звонок №_',opis,'. Тел №_',numb,'. Дата звонка:',data,'. длительность:',time,'мин.',' код города:',kod);
 end;
 //--------------------------------------------------------------------------------------
 var
 p,p1,p2:Telzvonk;
 begin 
 writeln;
  p:= new Telzvonk(0,0,0,0,'');
  p1:=new Telzvonk(0,0,0,0,'');
  p2:=new Telzvonk(0,0,0,0,'');
  p.print;
  p1.print;
  p2.print;
  end.