program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows,
  //Un_list in 'Un_list.pas',
  Un_class in 'Un_class.pas';

 var Obj1,obj2:TAbonent;
    t:TextFile;
    
begin
  SetconsoleCP(1251);
  SetconsoleOutPutCP(1251);
  AssignFile(t,'Abonents.txt');
  Reset(t);
  Obj1:=TAbonent.Create(t);
  obj2:=TAbonent.create(t);
  CloseFile(t);
  Obj1.Print;

 Obj2.Print;
   if obj1.Less_and_equiv(obj2) then writeln('yes')
                                else writeln ('no');
 Obj1.Destroy;
 Obj2.Destroy;
 readln
end.
var file_name,s,q:string;
    L:TList;
begin
  SetconsoleCP(1251);
  SetconsoleOutPutCP(1251);
  write('введите имя файла:');
  Readln(file_name);
  file_name:=file_name+'.txt';
  if not FileExists(file_name)then write('Файл не найден!!!')
    else
    begin
      Create(file_name,L);
      Print(L);
      write('Введите улицу: ');
      readln(q);
      write('Введите первых три цифры номера телефона_');
      Readln(s);
      Writeln;
      if not Search(L,s,q) then writeln('Таких абонентов нет');
      Clear(L);
    end;
  Writeln('Для выхода нажмите Enter');
  readln

