program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows,
  Un_company in 'Un_company.pas',
  Un_Abonent in 'Un_Abonent.pas';

var Company:TCompany;
    file_name,q,z:string;
begin
  SetconsoleCP(1251);
  SetconsoleOutPutCP(1251);
  Writeln('Введите имя файла ');
  Readln(file_name);
  file_name:=file_name+'.txt';
  if not FileExists(file_name)then write('Файл не найден!!!')
  else
  begin
    Company:=TCompany.Create(file_name);
    Company.Print;
    Writeln('Введите номер телефона абонента,которого нужно добавить');
    Readln(z);
    Company.Add_obj;
    //Writeln('Введите номер телефона абонента,которого нужно удалить');
    //Readln(m);
   // Company.Del_obj;
    Company.Print;
    Company.Destroy
  end;
  readln
end.


