Динамические массивы, списки

[FirstDeath]

7. Создать динамическую цепочку символов, содержащую текст без разделения на строки. Текст вводится из внешнего текстового файла, в общем случае содержащего разделение на строки.
Помогите, пожалуйста срочно надо!!!

[Stilet]

Попытки и наработки?

[FirstDeath]

Вот:

uses
 crt;
type
 plist = ^tlist;
 tlist =
  record
    symbol : char;
    next : plist
  end;
var
 gPrevious,gStart,poisk,pData: plist;
 f: text;
 c: char;
begin
 clrscr;
 assign (f,'111.txt');
 reset (f);
 
 gPrevious:= nil;
 while not eof(f) do
 begin
  read (f,c);
  if (c<>#13) and (c<>#10) then
  begin
   new (pData);
   pData^.symbol:= c;
   pData^.next:= gPrevious;
   gPrevious:= pData;
  end;
 end;
 
 gStart:= gPrevious;
 close (f);
{вывод на экран, хотя вроде как, это не требуется по заданию}
 writeln ('Enter to screen');
 poisk:= gStart;
 while poisk <> nil do
 begin
  write (poisk^.symbol,' ');
  poisk:= poisk^.next;
 end;
 readln;
end.

Но, естественно символы отображаются в зеркальнорм порядке

[Stilet]

Опля! Так код есть. Проблема только в отображении?

[FirstDeath]

Да. Не знаю как исправить(

[Stilet]

Хм... Я бы вообще не так делал бы ну да ладно...
Вот попробуй:

uses
 crt;
type
 plist = ^tlist;
 tlist =
  record
    symbol : char;
    next : plist
  end;
var
 gPrevious,gStart,poisk,pData: plist;
 f: text;
 c: char;
begin
 clrscr;
 assign (f,'111.txt');
 reset (f);
 
 gPrevious:= nil;  gStart:= nil;
 while not eof(f) do
 begin
  read (f,c);
  if (c<>#13) and (c<>#10) then
  begin
   new (pData); 
   if gStart=nil then gStart=pData;
   pData^.symbol:= c;
   pData^.next:= gPrevious; 
   if gPrevious<>nil then gPrevious^.next=pData;
   gPrevious:= pData;
  end;
 end;
 
 
 close (f);
{вывод на экран, хотя вроде как, это не требуется по заданию}
 writeln ('Enter to screen');
 poisk:= gStart;
 while poisk <> nil do
 begin
  write (poisk^.symbol,' ');
  poisk:= poisk^.next;
 end;
 readln;
end.

[FirstDeath]

Чем-то ограничить надо, иначе прога бесконечно выполняется