{Создать класс аэропорт. Поля: Название,
город, пассажирооборот, массив компаний,
которые используют этот аэропорт.
  Написать ф-цию для вывода инфы
  Написать функцию, изменяющую пассажиропоток на число n}
type
  kop = array [1..5] of String  ;

  Airport = class {в турбо object}
  city :String[20];
  po :Integer;
  companies: kop;

  constructor rt (c :String[20];p :Integer;compa : kop);
  procedure vivod;
  procedure change (n:Integer);
  end;

 constructor Airport.rt(c :String[20];p :Integer;compa : kop);
  begin
    city:=c;
  po:=p;
  companies:= compa;
  end;

 procedure Airport.vivod;
   var
   i:Integer;
  begin
    Write('Аэропорт нахходится в городе :', city) ; Writeln;
    Write('Пассажтрооборот этого аэропорта :',po) ; Writeln;
    Write('Компании, работающие с аэропотом : ') ;
    for i:= 1 to 5 do
      write(companies[i], ' ');
    Writeln;
  end;

 procedure Airport.change (n:Integer);
   begin
     po:= n + po
   end;

var
  Alikel: airport;
    i, n:Integer ;
  city1:String[20];
  po1 :Integer;
  companies1: kop;
begin

  Write('Введите местонахождение аэропорта :') ; Readln(city1);
  Write('Введите пассажтрооборот аэропорта :') ; Readln(po1);
  Writeln('Введите названия компаний, сотрудничающих с аэропотом : ') ;
  for i:= 1 to 5 do
      readln(companies1[i]);//нарушение инкапсуляции

  constructor Airport.rt(city1, po1,companies1);// объекты создаются не так
  Writeln('Ввод данных окончен.'); Writeln;
  procedure Alikel.vivod;// методы тоже не так
  Write('Введите на сколько изменился пассажиропоток : '); Readln(n);
  procedure Alikel.change (n);// методы тоже не так
  Writeln;
  Writeln('  Новые данные аэропорта =>');
  procedure Alikel.vivod;// методы тоже не так
end.