[Diseased Head]

t57rufjнгм6:?*%8gr``;'.,.,.,.,.,.,.,.,.,..

Код:

Procedure Tinterior.ReadFile;
         var
           k:  Integer;
           s:  String;
           Data : DataType;
           f: text;
         begin
           PS :=New(PStriongCollection, Init (100.10));
           seek(DataFile,0);
           while not (EOF(DataFile) or LowMemory) do
           begin
           Read (DataFile,data) ;
           with data do
             begin
               s := Name
               while Length (s) < LName do
                    s : = s+ '' ;
               e : = s+Phone;
               while Length (s) < LName+Phone do
                 s: =s+'';
               s : = s+Addr
             end;
           if so'' then PS^.Insert(NewStr(S))
          end;
          Location := 0;
         end;

А эта процеДУРА вся в ошибках.
Это вообще кто писал? Подозреваю что не ты. ;-/ А если ты, то чёт ты нарно перебрал или с недосыпу.
И вобще зачем братся за такие сложные примеры, если элементарные ошибки исправить не можеш?