Динамические структуры и записи.

[citrus]

Динамические структуры и записи.

Помогите пожалуйста, нужно написать создание динамического списка с добавлением в элементов в конец. элементами является запись с полями название, цвет, цена, кол-ва, ширина, страна. Вот что сделал я, но, что-то там не так..(

 Program SPISOK;
   uses crt;
   Type
   color1=(red,white,black);
   M=record
     name:string[15];
       color:color1;
       price:word;
       kolvo:word;
       wide:byte;
       country:string[15];
       end;

    FF=file of M;

    Ptr=^Elem;
    elem=record
    inf:M;
    next:ptr;
    end;



   procedure Add_Beg (Var FirstPtr:Ptr; Val:M);
   Var k:ptr; i,j:Byte; q:color1; x:M;
        Begin
        
 new(k);       
For i:=1 to N do
begin
WriteLn ('Vvedite name');
ReadLn (x[i].name);
WriteLn ('Vvedite color: 0 - red; 1 - white; 2 - black;');
ReadLn (j);
x[i].color:=color1(j);
WriteLn ('Vvedite price');
ReadLn (x[i].price);
WriteLn ('Vvedite kolvo');
ReadLn (x[i].kolvo);
WriteLn ('Vvedite wide');
ReadLn (x[i].wide);
WriteLn ('Vvedite country');
ReadLn (x[i].country);
WriteLn;
WriteLn;
end;  
   k^.inf:=M;
   k^.next:=FirstPtr;
   FirstPtr:=k;
   end;



Procedure Add_End (FirstPtr:Ptr; Val:M; var LastPtr:ptr);
 Var k:ptr;
 begin
 k:=firstPtr;
 While k^.next<>nil do
 k:=k^.next;
 LastPtr:=k;
 New(k);
 LastPtr^.next:=k;
 For i:=1 to N do
begin
WriteLn ('Vvedite name');
ReadLn (x[i].name);
WriteLn ('Vvedite color: 0 - red; 1 - white; 2 - black;');
ReadLn (j);
x[i].color:=color1(j);
WriteLn ('Vvedite price');
ReadLn (x[i].price);
WriteLn ('Vvedite kolvo');
ReadLn (x[i].kolvo);
WriteLn ('Vvedite wide');
ReadLn (x[i].wide);
WriteLn ('Vvedite country');
ReadLn (x[i].country);
WriteLn;
WriteLn;
end;  
 k^.inf:=Val;
 LastPtr:=k;
 end;
 
 
 procedure creat_beg (var n:byte; var firstptr:ptr);
  var
     i,j:Byte; q:color1;
        Begin
  firstptr:=nil;
  for i:=1 to n do
  begin
begin
WriteLn ('Vvedite name');
ReadLn (x[i].name);
WriteLn ('Vvedite color: 0 - red; 1 - white; 2 - black;');
ReadLn (j);
x[i].color:=color1(j);
WriteLn ('Vvedite price');
ReadLn (x[i].price);
WriteLn ('Vvedite kolvo');
ReadLn (x[i].kolvo);
WriteLn ('Vvedite wide');
ReadLn (x[i].wide);
WriteLn ('Vvedite country');
ReadLn (x[i].country);
WriteLn;
WriteLn;
end;  
  add_end(firstptr,x);
   end;
   end;
 
 
 procedure print_list(var firstptrtr);
var q:ptr;
begin
   q:=firstptr;
  while q<>nil do
    begin
     Write(q^.inf.name);
    case q^.inf.color of
    red:writeln('red');
    white:writeln('white');
    black:writeln('black');
    end;
     write(q^.inf.price);
     write(q^.inf.kolvo);   
     write(q^.inf.wide);
     write(q^.inf.country);
     q:=q^.next;
    end;
end;