Nous donnons un procédure de recherche d'une valeur x dans un tableau d'entiers positifs t de taille n: La valeur trouvée est retournée, sauf en cas d'échec, où la valeur -1 est retournée.
   function recherche 
   
  (var x : integer, var n : integer, var t : array of integer) : integer;
   
var i : integer;
   
begin 
   
   i := 0;
   
   while i < n do if t[i] = x then break else i := i+1;
   
   if i < n then recherche := t[i] else recherche := -1
   
end;