Хелп ми!!!!

[BRILok]

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

program lr7;     
uses crt;
type
     point=^s;
     s=record
     data:string***91;10***93;;
     next:point;
end;
type
     point2=^s1;
     s1=record
     data2:string***91;10***93;;
     next2:point2;
end;
var
     x,p:point;
     y,p2:point2;
     flag,i:integer;
begin
     clrscr;
{----------------------------------------------}
     writeln('Введите 1 список: ');
     for i:=1 to 2 do
begin
     new(x);
     write('Введите ',i,'-ую cтроку: ');
     readln (x^.data);
end;
     x:=p;
{----------------------------------------------}
     writeln;
     writeln('Введите 2 список:');
     for i:=1 to 2 do
begin
     new(y);
     write ('Введите ',i,'-ую строку: ');
     readln (y^.data2);
     y:=p2;
end;
{----------------------------------------------}
begin
     flag:=0;
     for i:=1 to 2 do
     while x^.next<>nil do
begin
     if x^.data=y^.data2 then;
begin
     flag:=flag+1;
     x:=x^.next;
     y:=y^.next2;
end;
end;
end;
     writeln ('flag=',flag);
     if flag=2 then
     writeln('Списки совпадают!')
     else writeln('Списки не совпадают!');
     readkey
end. 

Добавлено через 32 минуты
ессно моя программка не работеет ) ....ошибок не каких не говорит