Как считать нужные данные из файла? - Pascal ABC - Ответ 5599836

Program Stacko4eredey;
const n=10;
type
   plist=^tlist;
   tList=record;
    number:integer;
    mark:string;
   end;
   pstack=^tstack;
   tstack=record;
      inf:integer;
      next:pstack;
      och:array[0..n] of plist;
   end;
var
   f:text;
   j,i,b,c,k,inf,number:integer;
   mark:string;
   phead,cur,temp,prev:pstack;
   
 
procedure stackfind;
begin
cur:=phead^.next;
while cur^.inf<>inf do
  begin
    if cur=phead then
      begin
        writeln('не найдено');
        break;
      end
    else
    cur:=cur^.next;
  end;
end;
   
   
procedure stackadd;
begin
writeln('номер депо'); read(inf);
New(temp);
temp^.inf:=inf;
for j:=0 to n do
  begin
    New(temp^.och[j]);
    temp^.och[j]^.number:=-1;
  end;
temp^.next:=phead^.next;
phead^.next:=temp;
end;
 
 
procedure stackdel;
begin
temp:=phead^.next;
phead^.next:=temp^.next;
dispose(temp);
end;
 
 
procedure ochadd;
begin
writeln('номер депо '); read(inf);
stackfind;
j:=1;
 while cur^.och[j]^.number<>-1 do
   j:=j+1;
writeln('номер электровоза'); read(number);
writeln('марка электровоза'); read(mark);
cur^.och[j]^.mark:=mark;
cur^.och[j]^.number:=number;
end;
 
 
procedure ochdel;
begin
writeln('номер депо'); read(inf);
stackfind;
  for j:=2 to n do
  begin
    cur^.och[j-1]^.number:=cur^.och[j]^.number;
    cur^.och[j-1]^.mark:=cur^.och[j]^.mark;
  end;
cur^.och[n]^.number:=-1;
end;
 
 
procedure showoch;
begin
j:=1;
if cur^.och[j]^.number=-1 then
write(' в депо пусто')
else
while (cur^.och[j]^.number<>-1) and (j<=n) do
  begin
    write(' марка:',cur^.och[j]^.mark,' номер:',cur^.och[j]^.number,';');
    j:=j+1;
  end;
end;
 
 
procedure showall;
begin
cur:=phead^.next;
while cur<>phead do
  begin
    write('депо:',cur^.inf);
    showoch;
    writeln;
    cur:=cur^.next;
  end;
end;
 
 
procedure find;
begin
writeln('номер электровоза'); read(number);
  cur:=phead^.next;
    while cur<>phead do
      begin
        for j:=1 to n do
         if cur^.och[j]^.number=number then
           begin
             writeln('депо:',cur^.inf,' марка:',cur^.och[j]^.mark,' номер:',cur^.och[j]^.number);
             break;
           end;
      end;
end;
 
 
procedure resetfile;
begin
  rewrite(f);
  cur:=phead^.next;
while cur<>phead do
  begin
    write(f,'депо:',cur^.inf);
    j:=1;
    while (cur^.och[j]^.number<>-1) and (j<=n) do
      begin
        write(f,' марка:',cur^.och[j]^.mark,' номер:',cur^.och[j]^.number,';');
        j:=j+1;
      end;
    writeln;
    cur:=cur^.next;
  end;
close(f);
writeln('файл "железная дорога.txt" обновлен');
end;
 
 
 
begin
assign(f,'железная дорога.txt');
New(phead);
phead^.next:=phead;
phead^.inf:=-1;
repeat
hi;
if b=1 then stackadd;
if b=2 then stackdel;
if b=3 then ochadd;
if b=4 then ochdel;
if b=5 then find;
if b=6 then showall;
if b=7 then resetfile;
if b=8 then readfile;
until b=0;
end.