Pascal/Turbo Pascal - ayuda no se detiene

Program preferencias;

Uses crt;

var

a,b:string;

begin

clrscr;

a:=(\\\'piedras lleva\\\');

writeln(\\\'completas esto y sabras mi nombre: Cuando el rio suena porque\\\');

readln (a);

while a = \\\'piedras lleva\\\'  do

If a = \\\'piedras lleva\\\' then

writeln(\\\'Mi nombre es: ******-- Magnolia--******\\\');

If a <> \\\'pidras lleva\\\' then

exit;

repeat until keypressed;

end.

while a = \\\'piedras lleva\\\' do  begin

If a = \\\'piedras lleva\\\' then

   writeln(\\\'Mi nombre es: ******-- Magnolia--******\\\');

If  a = \\\'pidras lleva\\\' then

    exit;

end;

repeat until keypressed;

end.