Односвязный список, Сравнение списков Опции

[*alt]

Задача
Проверить, содержатся ли элементы списка А в списке В в указанном списком А порядке.

Помогите, пожалуйста. Как реализовать решение??
Подкиньте идейку... с чего начать.... или алгоритм посоветуйте

Сообщение отредактировано: *alt - 19.11.2007 21:27

[*alt]

Вот я такой код сделал, НО чего-то на счёт порядка у меня проблемы
То есть программа смотрит просто вхождение Элементов((((
Подскажите что делать....

Код

type
  Tinf = integer;
  Tptr = ^Tlist;
  Tlist = record
    inf:Tinf;
    next:Tptr;
  end;

var
  A,B:Tptr;

procedure create_list (var l:Tptr );
var p:Tptr; e:Tinf;
  begin
    l:=nil;
    while not eoln do
      begin
        read (e);
        new(p);
        p^.inf:=e;
        p^.next:=l;
        l:=p;
      end;
    readln
  end;

function search (L1,L2:Tptr):boolean;
  var p,q:Tptr; ok:boolean;
    begin
      ok:=true;
      p:=L1; q:=L2;
      while (p<>nil) do
        begin
          while (q<>nil) do
            begin
              if p^.inf = q^.inf then
                ok:=false;
              q:=q^.next;
            end;
          p:=p^.next;
        end;
    search:=not ok;
    end;


begin {main}

  write ('Введите элементы списка A: ');
  create_list(A);
  write ('Введите элементы списка B: ');
  create_list(B);

  if search(A,B) then writeln ('Содержится')
  else writeln ('Не Содержится');

  readln;
end.