С_4 задание ЕГЭ

type
    p_school=^school;
    school=record
        famil:string[20];
        io:string[4];
        namb:string[2];
        next:p_school;
    end;
 var
   k:integer; {KoJI-Bo IIIKoJI}
   n:integer; {KoJI-Bo Y4aIII,uxc9I}
   max:integer;
   i,p,tmp:integer;
   head:p_school;
   cur:p_school;
   minazs: p_school;
   buf:string;
   stmp:string;
 
begin
 writeln('BBeDuTe KoJb-Bo Y4aIII,uxc9I, KoJI-Bo 6oJIbIIIe');
 readln(n);
 for i:=1 to n do begin
        writeln('BBeDuTe faMuJIu1O, U.O., nomber shool 4epe3 npo6eJI');
                  new(cur);
                  readln(buf);
                  p:=pos(' ',buf);
                  stmp:= copy(buf,1,(p-1));
                  delete(buf,1,p);
                  cur^.famil:=stmp;
                  //
                  //writeln('buf=',buf);
                   p:=pos(' ',buf);
                  stmp:= copy(buf,1,(p-1));
                  delete(buf,1,p);
                   cur^.io:=stmp;
                  //
                  //writeln('buf=',buf);
                  //
                    stmp:= buf;
                  val(stmp,tmp);
                  cur^.namb:=tmp;
 
                  cur^.next:=head;
                  head:=cur;
                  end;