WHILE

Sua característica é que pode executar 0 ou + vezes. E sua interrupção ocorre no início.
* Enquanto a condição retornar TRUE o while continuará no looping.

while condição do

begin
Seqüência A de comandos

end;

Exemplo de um programa que soma os números de 1 a 100 e imprime na tela:

program SomaNumeros;
var Nums,Soma:Integer;
begin
   Soma:=0;
   Nums:=1;
   while Nums <= 100 do
      begin
        soma:=soma + nums;
        nums:=nums + 1;
      end;
   writeln('Soma dos Números: ',soma);
end.

FOR

E sua interrupção ocorre no início.
* O for continuará no looping até que o valor inicial seja igual ao final ou vice e versa (quando se utilizar de downto).

for variável de controle:=valor inicial to valor final do
   begin
      Seqüência A de comandos
   end;

Outro modo de se usar o for é:

for variável de controle:=valor final downto valor inicial do
   begin
      Seqüência A de comandos
   end;

Exemplo do programa mostrado acima, adaptado ao for:

program SomaNumeros;
var Nums,Soma:Integer;
begin
   Soma:=0;
   for Nums:=1 to 100 do
      soma:=soma + nums;
   writeln('Soma dos Números: ',soma);
end.

REPEAT

Sua interrupção é no final. É pelos menos executado uma vez.
* No repeat o looping ocorre enquanto a condição é FALSE, quando for TRUE ele sai do looping.

repeat
   Seqüência A de comandos
until Condição;

Exemplo do programa mostrado acima, adaptado ao Repeat: