Указатели, списки

type
  pstr = ^prec;
  prec = record
  str: string;
  num, len:word;
  next:pstr
  end;
var
  f: text;
  s, t:string;
  n, c, k:integer;
  pf, pcur, ptemp: pstr;
procedure One;
  begin
    pcur:=pf;
    if pcur=nil then
    writeln('pystoi list')
   else
   begin
     while pcur<>nil do
       begin
         if pcur^.str[1]='b' then
          begin
            writeln('stroka №',pcur^.num,'(dlina =',pcur^.len:5,') ',pcur^.str);
            ptemp:=pcur;
            pcur:=pcur^.next;
            pf:=pcur;
            dispose(ptemp);
          end;
       end;
   end;
   end;
procedure Two;
  begin
    pcur:=pf;
    while pcur<>nil do
      begin
        pf:=pcur^.next;
        dispose(pcur);
        pcur:=pf;
      end;  
  end;
  begin
  writeln('Vvedite ogroni4enie');
  readln(k);
  writeln('Vvedite im9 texstovogo dokymenta');
  readln(t);
  assign(f,t);
  reset(f,t);
  n:=0;
  c:=0;
  pf:=nil;
  pcur:=nil;
    while (not eof(f)) and (n<k) do
      begin
        readln(f,s);
        if s<>' ' then
          begin
            n:=n+1;
              new(ptemp);
              ptemp^.str:=s;
              ptemp^.num:=n;
              ptemp^.len:=length(s);
              ptemp^.next:=nil;
              c:=c+ptemp^.len;
              pcur:=pf;
              if pcur=nil then
                begin
                  pf:=ptemp;
                end
              else
              begin
                while pcur^.next<>nil do
                pcur:=pcur^.next;
                pcur^.next:=ptemp;
              end; 
          end;     
      end;
One;
Two;
close(f);
end.