function recherche       (var x : integer, var n : integer, var t : array of integer) : integer;    var i : integer;    var b : boolean;    begin        i := 0;       b := i < n;       while b do          if t[i] = x then b := false else begin i := i+1; b := i < n end;       if i < n then recherche := t[i] else recherche := -1    end;