симметрия списка на С++

Uses Crt;
 
type
  Plist = ^TList;
  TList = record
    info: integer;
    pred,next : PList;
  end;
 
Var
  Head : PList;
  n : integer;
 
{создание двусвязного списка со сторожем}
Procedure MakeList(Var head: PList; Var n:integer);
var
  p,q:PList;
  k:integer;
 
Begin {MakeList}
 
  new(head);
  head^.next:=nil;
  head^.pred:=nil;
  p:=head;
  writeln('введите элементы списка до 0');
  read(k);
  while k<>0 do
    begin
      new(q);
      q^.info:=k;
      q^.pred:=p;
      q^.next:=nil;
      p^.next:=q;
      p:=q;
      read(k);
    end;
  head^.pred:=p;
  writeln;
end;{MakeList}
 
{вывод списка на экран}
Procedure PrintList(head : PList);
Var
 p: PList;
 
Begin  {PrintList}
  writeln('данный список: ');
  p:=head^.next;
  while p<>nil do
  begin
    write(p^.info:4);
    p:=p^.next;
  end;
  writeln;
end;{PrintList}
 
{проверка симметрии списка*}
Procedure SimList(head: PList; n:integer);
Var
  p,q:PList;
  c:integer;
 
Begin {SimList}
 writeln;
 writeln('проверяем симметрию:');
 p:=head^.pred;
 q:=head^.next;
 c:=0;
 while (p<>q) and (p^.next <>q)  do
    begin
      write(p^.info:4);
      write(q^.info:4);
 
      p:=p^.pred;
      q:=q^.next;
      if p^.info=q^.info  then inc(c);
    end;
   writeln;
 
  if c=(n div 2) then
    writeln('список симметричен*')
  else
    writeln('список не симметричен*');
end;
 
 
Begin
  ClrScr;
  writeln('введите количество элементов');
  readln(n);
  MakeList(head,n);
  PrintList(head);
  SimList(head,n);
  readkey;
end.{SimList}

#include <iostream>
#include <conio.h>
#include <math.h>
#include <stdlib.h>
#include <time.h>
#include <stdio.h>
#include <locale.h>
#include <iomanip>
 
using namespace std;
 
struct TList {
  int Info;
  TList *Next,*Pred;
};
typedef TList *PList;
 
//выделение памяти и заполнение полей нового элемента списка (возвращает указатель на него)
PList NewListNode(){
  PList Result = new TList;
  Result->Info = 0;
  Result->Next = NULL;
  Result->Pred = NULL;
  return Result;
}
//вывод списка на экран
void PrintList(PList List){
  cout << "список: ";
  while(List != NULL){
    cout << List->Info << " ";
    List = List->Next;
  }
  cout << "\n";
}
void MakeList(PList *Head, int n)
{
     if(n > 0){
    srand(time(NULL));
    *Head = NewListNode();
    PList p=*Head;
    cout<<"введите элементы списка до 0"<<endl;
    int k;
    cin>>k;
    while (k!=0)
    {
        PList q;
        q=NewListNode();
        q->Info=k;
        q->Pred=p;
        q->Next=NULL;
        p->Next=q;
        p=q;
        cin>>k;
    }
    (*Head)->Pred=p;
     }
}
 
void SimList(PList *Head, int n)
{
    PList p,q;
cout<<"проверяем симметрию:"<<endl;
p=(*Head)->Pred;
q=(*Head)->Next;
int c=0;
while((p!=q)&(p->Next!=q))
{
    cout<<setw(4)<<p->Info;
    cout<<setw(4)<<q->Info;
    cout<<endl;
    p=p->Pred;
    q=q->Next;
    if (p->Info==q->Info)
         c++;
}
    if (c==(n/2)){
        cout<<"список симметричен"<<endl;
    }else
    {cout<<"список не симметричен"<<endl;
    }
}
 
 
void main ()
{ setlocale(LC_ALL,"RUS");
  PList List;
    cout<<"введите количество элементов"<<endl;
    int n;
    cin>>n;
    MakeList(&List, n);
    PrintList(List);
    SimList(&List, n);
    getch();
    return ;
 
}