Линейные Списке на Паскале

[MaXoN66613]

добрый день, пытался написать программу но до ума что то довести не могу, мозгов не хватает...
надеюсь на вашу помощ! За ранее благодарен!
вот задание
в линейном списке Даны натуральное число n и символы s1, s2,..., sn. Получить символы, принадлежащие последовательности s1, s2,..., sn, которые входят в нее по одному разу

program MaX;

{$APPTYPE CONSOLE}

uses
  SysUtils, crt32, Math;
  
type
  PElement = ^TypeElement;
  TypeElement = record
    Data: integer;
    Next: PElement;
  end;
var
  x: integer;
  ptrHead,ptrHead2: PElement;
  ptrCurrent: PElement;

 {Dobovlenie Elementa}
procedure Ins_LineSingleList(DataElem: integer;
                             var ptrHead, ptrCurrent: PElement);
  var
  ptrAddition: PElement;
begin
  New(ptrAddition);
  ptrAddition^.Data := DataElem;
  if ptrHead = nil then begin
    ptrAddition^.Next := nil;
    ptrHead := ptrAddition;
  end else begin
    ptrAddition^.Next := ptrCurrent^.Next;
    ptrCurrent^.Next := ptrAddition;
  end;
  ptrCurrent := ptrAddition;
end;

{Prosmotr Spiska}
procedure Scan_LineSingleList(ptrHead: PElement);
 var
  ptrAddition: PElement;
begin
  ptrAddition := ptrHead;
  while ptrAddition <> nil do begin
    writeln(ptrAddition^.Data, '       ');
    ptrAddition := ptrAddition^.Next;
  end;
end;

function Find_2LineSingleList(DataElem: integer;
                     var ptrHead : PElement): integer;
var
  s4et4ik: integer;
  ptrAddition:PElement;
begin
  s4et4ik :=0 ;
  if (ptrHead <> nil) then begin
    ptrAddition := ptrHead;
    while ptrAddition <> nil do
     begin
         if ptrAddition^.Data = DataElem
         then s4et4ik := s4et4ik +1;
         ptrAddition := ptrAddition^.Next;
     end;
     Find_2LineSingleList := s4et4ik;
  end else begin
    Find_2LineSingleList:= -1;
     end;
end;

процедуры вроде правельно составил, а вот с выводом не сооброжу, подскажите каким оброзомэто это сделать, ато я уже чтото запутался

[Stilet]

Хм... Насколько я понял твой код, Find_2LineSingleList ищет повтор.
Вот и прекрасно:

procedure Scan_LineSingleList(ptrHead: PElement);
 var
  ptrAddition: PElement;
begin
  ptrAddition := ptrHead;
  while ptrAddition <> nil do begin
   if Find_2LineSingleList(...че тут надобно писать)=-1 then
     writeln(ptrAddition^.Data, '       ');
    ptrAddition := ptrAddition^.Next;
  end;
end;

Но я всетки думаю что этот код тебе еще аукнится... Не очень он кузявый на первый взгляд...

[MaXoN66613]

да, ты правильно понял. я еще плох в программировании по этому... вот, спасибо за подсказку, буду думать дальше