Exemplo While.

Program exp ;
var
a:string;
cont:string;
 Begin 
 cont:='sim';      
 while (cont='sim') do
 begin
 writeln('Digite um nome');readln(a);
 writeln('Voce digitou o nome: ', a);
 writeln('digite sim para continuar ou qualquer tecla para sair');readln(cont);

 end;
 End.