Поиск минимума/максимума в массиве / Turbo Pascal

[Lost7070]

Доброго времени суток. Проблема просто смешная, но я не могу понять, почему программа не работает.
Нужно найти минимум и максимум координат.
Есть 2 функции для поиска максимума и минимума(сначала объединил в одну, но в надежде решить проблему разделил на две). Максимум считается верно, а функция минимума всегда выдаёт нули. Подскажите пожалуйста, что я делаю не так.
Заранее благодарен.
Код ниже:

uses crt,graph;
{Функция поиска макимума из массива}
function max(mas: array of integer; n:integer):integer;
var
m,i:integer;
begin
    m:= mas[1];
    for i:=1 to n do
    begin
        if m < mas[i] then
            m:= mas[i];
    end;
    max:=m;
end;
 
function min(mas: array of integer; n:integer):integer;
var
m,i:integer;
begin
    m:= mas[1];
    for i:=1 to n do
        if m > mas[i] then
            m:= mas[i];
    min:=m;
end;
 
var
x,y: array[1..50] of integer;
i,numberPoints,Xmin,Ymin,Xmax,Ymax: integer;
begin
    clrscr;
    write('ВВедите количество точек: ');
    readln(numberPoints);
    writeln('Введите координаты точек:');
    for i:=1 to numberPoints do
    begin
        write('X',i,'= '); readln(x[i]);
        write('Y',i,'= '); readln(y[i]);
    end;
 
    {Поиск минимальных и максимальных координат}
    Xmin:= min(x,numberPoints);
    Ymin:= min(y,numberPoints);
    Xmax:= max(x,numberPoints);
    Ymax:= max(y,numberPoints);
 
    write('Xmin=',Xmin,' Xmax= ',Xmax,' Ymin=',Ymin,' Ymax= ',Ymax);
 
    readkey;
end.

[Poma][a]

Всему виной не соответствие типов..
array of integer - здесь элементы идут с 0-ля.. а у Вас в тушке array [1..50].. (элементы идут с 1-ки..)

[Serge_Bliznykov]

Сообщение от Poma][a

Всему виной не соответствие типов..
array of integer - здесь элементы идут с 0-ля.. а у Вас в тушке array [1..50].. (элементы идут с 1-ки..)

полностью согласен!

Методы борьбы.

1-й. Изменить нумерацию в массивах X,Y от нуля.
так:

var
  x,y: array[0..49] of integer;
...
    for i:=0 to numberPoints-1 do
...

либо. вариант 2.
завести дополнительный тип для массива:

Type TMyArray = array[1..50] of integer;


{Функция поиска макимума из массива}
function max(mas: TMyArray; n:integer):integer;
var
m,i:integer;
begin
    m:= mas[1];
    for i:=1 to n do
    begin
        if m < mas[i] then
            m:= mas[i];
    end;
    max:=m;
end;

function min(mas: TMyArray; n:integer):integer;
var
  m,i:integer;
begin
    m:= mas[1];
    for i:=1 to n do
      if m > mas[i] then
            m:= mas[i];
    min:=m;
end;

var
  x,y: TMyArray;
  i,numberPoints,Xmin,Ymin,Xmax,Ymax: integer;
begin
    clrscr;
    write('ВВедите количество точек: ');
    readln(numberPoints);
    writeln('Введите координаты точек:');
    for i:=1 to numberPoints do
.....

либо, вариант 3.
в функциях Max/Min написать цикл примерно такого вида:

function min(mas: array of integer; n:integer):integer;
var
  m,i:integer;
begin
    m:= mas[1];
    for i:=low(mas) to low(mas)+n-1 do
      if m > mas[i] then
            m:= mas[i];
    min:=m;
end;

в данном случае я бы рекомендовал взять вариант 2, с дополнительным типом массива, хотя и другие варианты имеют свои плюсы и минусы

[Poma][a]

Можно примерно так :
Берем FPC (хотя я так думаю, что и у ТС был не турбушка, а именно фри..)
Читаем кол-во элементов, SetLength'им массивы, вызываем MaxIntValue и MinIntValue из uses Math.. и радуемся.. и писать ничего не надо.. кра-со-та..