[karolinochka]

съезжает вся структура с файла при выводе с экрана.помогите найти ошибку

[Snake22]

потому что пробел(пустая строка) между записями,считывается как имя оператора.
добавь такую строчку
if trim(namecompany)='' then readln(t,namecompany);

Код:

procedure Create_Network(file_name:string;var network:TNetwork);
var t:TextFile;
networkname,namecompany:string;
abonent:TAbonent;
begin
  AssignFile(t,file_name);
  Reset(t);
  readln(t,networkname);
  Network:=TNetwork.create(networkname);
  while not eof(t) do
   begin
     readln(t,namecompany);
     if trim(namecompany)='' then  readln(t,namecompany); //вот эта строчка
     abonent:=TAbonent.Create(t);
     network.add(namecompany,abonent);
   end;
  CloseFile(t)
end;

[karolinochka]

спасибо подскажите ,пожалуйста еще почему при добавлении abonenta не идет проверка по ключевому полю(в данном случае номер телефона),из-за этого добавляется абонент уже с зарегистрированным номером....не знаю даже где может быть ошибка