Нет индексного свойства по умолчанию для типа integer (поиск крайних точек) - PascalABC.NET

Формулировка задачи:

Всю плешь выела чёртова задача. День думал над тем как реализовать, день писал и переписывал с нуля. В общем, помогите, ребятки. Итак, требуется найти крайние точки(самые большие и самые малые (x;y)).

                    Листинг программы
                
 
                        
                          
                    
var
xs:array of integer;
ys:array of integer;
i,n,maxx,maxy,minx,miny:integer;
begin
readln(n);
SetLength(xs,n);
SetLength(ys,n);
 
if (n>=2) and (n<=100) then 
 begin
  for i:=0 to n-1 do 
   begin
     writeln ('Bведите x: ');
     read(xs[i]);
     writeln ('Bведите y: ');
     read(ys[i]); 
   end;
     if minx>xs[i] then minx:=xs[i];
     if miny>ys[i] then miny:=ys[i];
     if maxx<xs[i] then maxx:=xs[i];
     if maxy<ys[i] then maxy:=ys[i];
     writeln('(', maxx[i], ';', maxy[i], ')'); //Туть
     writeln('(',minx[i], ';', miny[i], ')'); //и туть ошибки
 end  
 
else writeln('N/A');
 
end.

Решение задачи: «Нет индексного свойства по умолчанию для типа integer (поиск крайних точек)»

Листинг программы

var
xs:array of integer;
ys:array of integer;
i,n,maxx,maxy,minx,miny:integer;
begin
readln(n);
SetLength(xs,n);
SetLength(ys,n);
if (n>=2) and (n<=100) then 
 begin
  for i:=0 to n-1 do 
   begin
     writeln ('Bведите x: ');
     readln(xs[i]);
     writeln ('Bведите y: ');
     readln(ys[i]); 
   end;
 minx:=xs[0]; maxx:=xs[0];
 miny:=ys[0]; maxy:=ys[0];
 for i:=1 to n-1 do
  begin
   if minx>xs[i] then minx:=xs[i];
   if miny>ys[i] then miny:=ys[i];
   if maxx<xs[i] then maxx:=xs[i];
   if maxy<ys[i] then maxy:=ys[i];
  end; 
  writeln('(', maxx, ';', maxy, ')'); 
  writeln('(',minx, ';', miny, ')'); 
 end 
else writeln('N/A');
 
end.

Объяснение кода листинга программы

В начале кода объявляются переменные:
- xs: массив целых чисел для хранения значений x;
- ys: массив целых чисел для хранения значений y;
- i, n, maxx, maxy, minx, miny: целочисленные переменные для цикла и хранения минимальных и максимальных значений.
Пользователю предлагается ввести количество точек (n).
Проверка на корректность введенного значения n: от 2 до 100.
Цикл for для считывания значений x и y для каждой точки.
Инициализация переменных minx, maxx, miny, maxy первыми введенными значениями.
Цикл for для поиска минимальных и максимальных значений x и y среди всех точек.
Вывод на экран найденных минимальных и максимальных значений.
Если n не соответствует заданному диапазону, выводится сообщение N/A.