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

[Bast]

Даны два упорядоченных по не уыванию линейных односвязных списка. Проверьте, содержаться ли элементы первого списка во втором в указанном порядке. помогите плиз

[Bast]

 TYPE
   plist=^list;
   list=record
     data:longint;
     next:plist;
   end;
VAR
x1,x2:plist;

Procedure readdata;
Begin
//тут эти два списка надо читать
End;

var
y1,y2:plist;
BEGIN
readdata;
y1:=x1;
y2:=x2;
while (y1<>nil) and (y2<>nil) do
begin
  if y1^.data<>y2^.data then break;
  y1:=y1^.next;
  y2:=y2^.next;
end;
if (y1<>nil) or (y2<>nil) then
  write('spiski ne ravni')
else
  write('spiski ravni');
End.

Вот только незнаю правильно или нет