списки

#include <stdio.h>
#include <conio.h>
#include <stdlib.h>
struct Node
{
char* vra4;
char* pac;
int d;
int m;
int g;
int ch;
int min;
char* diag;
Node *next; // ссылка на следующий узел
};
typedef Node *PNode;

PNode CreateNode ( char str1[80], char str2[80],char str3[80],char str4[80], char str5[80] ) //prototip finccii
{
PNode NewNode = new Node; // указатель на новый узел
NewNode->vra4=str1;
NewNode->pac=str2;
NewNode->diag=str5; // записать число b в поле а структуры NewNode
NewNode->d=str3[0]+str3[1];//0 i 1 symbol v str newmode
NewNode->m=str3[3]+str3[4];
NewNode->g=str3[6]+str3[7];
NewNode->ch=str4[0]+str4[1];
NewNode->min=str4[3]+str4[4];
NewNode->next = NULL; // следующего узла нет
return NewNode; // результат функции – адрес узла
}

void AddFirst (PNode &Head, PNode NewNode)
{
NewNode->next = Head;
Head = NewNode;
}

void AddAfter (PNode p, PNode NewNode)
{
NewNode->next = p->next;
p->next = NewNode;
}

void AddLast(PNode &Head, PNode NewNode)
{
PNode q = Head;
if (Head == NULL) { // если список пуст,
AddFirst(Head, NewNode); // вставляем первый элемент
return;
}
while (q->next) q = q->next; // ищем последний элемент
AddAfter(q, NewNode);
}


int main()
{

char word1[80];
char word2[80];
char word3[80];
char word4[80];
char word5[80];

FILE *in, *out;
char word[80];
in = fopen ( "C:\\r\\p.txt","r");
    int i, n, j=1000, k;
  PNode Head = NULL, p;


n = fscanf ( in, "%s", word ); // читаем слово из файла

printf("%s", word);

for(i=0;feof(in)==0;i++)//4teniye do konza faila
{
    n = fscanf ( in, "%s", word1 );
    n = fscanf ( in, "%s", word2 );
    n = fscanf ( in, "%s", word3 );
    n = fscanf ( in, "%s", word4 );
    n = fscanf ( in, "%s", word5 );
if (i=0)//dlya perv schit iz faila stroki my sozdali perv element spiska
{
    p = CreateNode(word1, word2, word3, word4, word5);
    AddFirst(Head, p);
}
else {
      p = CreateNode(word1, word2, word3, word4, word5);
       AddLast(Head, p);
}
}

getch();
return 0;
}