[Diseased Head]

gh6 ты, к примеру, можеш сказать что делает данная процедура? Аааа....?
Я в общих чертах представляю. И ошибку эту ты, на глаз видимо нашёл. Ты кого обдурить то вздумал?

Ну что-ж, давай посмотрим ошибки в этой процедуре...

Код:

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;

- PStriongCollection --- здесь лишний символ o.
- Init (100.10) --- чёта типа несоответствия типов, заменил . на , - помогло. Но так как я не знаток Паскаля, и не знаю как работает эта функция. То не знаю, верно ли...
- Name; --- точки с запятыми, которых нет.
- В выражениях типа: s :_= s+''; --- лишние пробелы.
- e :_= s+Phone; --- чё за e здесь? Я исправил на s.
- LName+Phone --- несоответствие типов. Я написал LName+LPhone .
- if so'' then PS^.Insert(NewStr(S)) --- вот то о чём ты говорил. И почему-же ты исправил, это на lo? Чё вобще значит, это lo? Я исправил так s=''.

Процедура пролетела, но верно ли я всё исправил, не знаю точно. Та как опять же говорю, что я не знаток. И ещё меня смущают выражения типа s:=s+'';, если я правильно помню Паскаль, то: '' - значит пустую строку. Тогда в этом выражении нет смысла, и должно быть так: s:=s+' ';.

Далее ещё ошибки...