function findElement(var nums : array of integer; 
                     n : integer; 
                     e : integer) : boolean;
  var
    found : boolean;
    i : integer;
  begin
    found := false;
    i := 0;
    while (not found) and (i < n) do
      begin
        found := (nums[i] = e);
        i := i + 1
      end;
    findElement := found
  end;

procedure readArray(var nums : array of integer;
                    n : integer);
  var
    i : integer;
  begin
    i := 0;
    while (i < n) do
      begin
        write('enter value for item ',i,' ');
        readln(nums[i]);
        i := i + 1
      end
  end;

const
  array_size = 5;

var
  array_of_numbers : array [0..array_size-1] of integer;
  number_to_look_for : integer;

begin
  readArray(array_of_numbers, array_size);
  writeln('enter a value to search for:');
  readln(number_to_look_for);
  writeln('findElement returns ',findElement(array_of_numbers, array_size, number_to_look_for));
end.