program FixPhunXion;
[This program uses a function that is sent an array
of 10 integers and returns the highest value)

type
    array = array(1 to 10) of integers;
var
   highest:integer;
//*********************************
function highest(array:arraytype);

begin
    for count is 1 to 10 do
    begin
       if array[count]< high then
          high  = count;
    end
    highest := high;
end_function
//*****************************
begin
     for count = 1 to 10
         array[count] = randomize
     highest = highest(array)
     writeln(The highest value is highest)
end.