найти ошибку в программе

program PROG05;
    uses crt;
    type
      plist=^tlist ;
      Tlist=record
           info:integer;
           next:plist;
           end;
    Var
    n:integer;
    p,head: plist;
    {Їа®жҐ¤га* formiryet odnosvyzniy spisok so storozhem iz posledovatelnosti
    celih chisel }
    procedure makelist(var head:plist);
    var
      p,last:plist;
      k,i:integer;
    begin
      new(head);
      last:=head;
      for i:=1 to n do
      begin
        writeln('vvodite posledovatelno chisla');
        readln(k);
        new (p);
        p^.info:=k;
        last^.next:=p;
        last:=p;
      end;
      last^.next:=nil;
    end;
    {Їа®жҐ¤га* vivodit spisok na ecran}
    Procedure Printlist( head:plist);
    var
      p:plist;
      i:integer;
    begin
      p:=head^.next;
      while(p<>nil) do
      begin
        write(p^.info:6);
        p:=p^.next;
      end;
    end;
    {procedura obmenivaet znacheniya a1,a3,a2,a4...an}
    Procedure Obmen(head:plist);
    var
      q,i:integer;
      p:plist;
    begin
      p:=head^.next^.next;{p ukazivaet na 2 element}
      i:=2;
      while (i<=n) do
      begin
        {menyem sosednie elementi mestami}
        q:=p^.info;
        p^.info:=p^.next^.info;
        p^.next^.info:=q;
        p:=p^.next^.next^.next^.next;{peredvigaen p na i+4 po chetu element spiska}
        i:=i+4;
      end;
    end;
      begin
        repeat
          writeln('ўўҐ¤ЁвҐ  n Є®«ЁзҐбвў® н«Ґ¬Ґ*в®ў stroki');
          readln(n);
        until (n>2);
        makelist(head);
        writeln('Spisok v posledovatelmosti a1,a2,a3...an');
        Printlist(head);
        writeln;
        obmen(head);
        writeln('Spisok v posledovatelnosti a1,a3,a2,a4...an');
        printlist(head);
      end.

 for i:=0 to n-1 do
      begin