Необходимо реализовать один алгоритм, для этого нужно написать две функции - для нахождения максимума и минимума массива. Вторая работает, а первая возвращает какой-то мусор. На Паскале последний раз писал давно, возможно что-то подзабыл, но на первый взгляд всё верно.
function minY(pointsArray: array of integer) : integer;
begin
ymin := pointsArray[0];
for i:= 1 to n do
begin
if ymin > pointsArray[i] then
ymin := pointsArray[i];
end;
result := ymin;
end;
function maxY(pointsArray: array of integer) : integer;
begin
ymax := pointsArray[0];
for i:= 1 to n do
begin
if ymax < pointsArray[i] then
ymax := pointsArray[i];
end;
result := ymax;
end;