Динамические списки

[lubafffka]

Символы вводимой с клавиатуры строки сохранить в динамическом списке. Вставить после каждой компоненты списка символ пробела.

[Whiplash]

Program List;
Uses Crt;
Type
  TPtr = ^Element;
  Element = record
    Inf: Char;
    Link: TPtr;
  end;
Var
  Head, ListEnd, P: TPtr; (*Голова, конец списка и вспомогательный указатель*)
  C: Char;
  N, i: Integer;

Procedure Create_List;
Begin
  New(Head);      (*отдельно создаем голову*)
  ReadLn(Head^.Inf);
  Head^.Link:=NIL;
  ListEnd:=Head; (*Присваиваем значение концу списка*)
  for i:=2 to N do
  begin
    New(P);
    ReadLn(P^.Inf);
    P^.Link:=NIL;
    ListEnd^.Link:=P;
    ListEnd:=ListEnd^.Link;
  end;
end;

Procedure Write_List(S: String);
Begin
  Write(S);
  P:=Head;
  while P <> NIL do
  begin
    Write(P^.Inf,' ');
    P:=P^.Link;
  end;
  Write('.');
  WriteLn;
end;

Procedure Insert;
Var X: TPtr; (*Вспомогательный указатель*)
Begin
  P:=Head;
  while P <> NIL do
  begin
    New(X);
    X^.Inf:=#32; (*то же самое, что и ' '*)
    X^.Link:=P^.Link;
    P^.Link:=X;
    P:=X^.Link; (*Через один элемент*)
  end;
end;

Begin
  ClrScr;
  Write('Количество элементов списка: ');
  ReadLn(N);
  Create_List;
  Write_List('Созданный список: ');
  Insert;
  Write_List('После вставки: ');
  ReadLn;
End.

[lubafffka]

Спасибочки огромное!!! =))) а потиму он ток 1 символ пишет??????

[Whiplash]

1 символ где?))
На выходе?

[lubafffka]

прости.. ошиблась.... =))) я узе разобралсь... пасиб огромное... ти мну спас=)))

[Whiplash]

Прости, невнимательно прочитал задание.
Тогда можно так:

Procedure Create_List;
Begin
  New(Head);
  Head^.Inf:=S[1];
  Head^.Link:=NIL;
  ListEnd:=Head;
  for i:=1 to Length(S)-1 do
  begin
     New(P);
    P^.Inf:=S[i];
    P^.Link:=NIL;
    ListEnd^.Link:=P;
    ListEnd:=ListEnd^.Link;
  end;
end;

[Whiplash]

Рад был помочь))