Одномерный массив Pascal

[Начинающий програм]

Исправьте пожалуйста ошибку в программе!

const n_max=10;
 
type 
tymple=array [1..n_max] of integer; 
var 
x,y,r:tymple;
    i,j,n:integer;
    d_max,d:real;
begin
  write('Введите кол-во вершин многоугольника: ');
  readln(n);
  while n>n_max do
    begin
      writeln('Ошибка! Повторите ввод!');
      readln(n);
    end;
  for i:=1 to n do
    begin
      writeln('Введите координаты ',i,'-й вершины(x,y)');
      readln(x[i],y[i]);
      writeln;
    end;
end;
begin
  for i:=1 to n do
    r[i]:=trunc(sqrt(sqr(x[i+1]-x[i])+sqr(y[i+1]-y[i]))); //расстояние между точками
end;
begin
  Input(x,y,n);
  SegLen(x,y,d,n);
  for i:=1 to n do
    write(x[i],',',y[i],' ');
  writeln;
  for i:=1 to n do
    write(d[i],' ');
  readln;
 begin
  d_max:=0;
  for i:=1 to n-2 do
    begin
        for j:=1 to n do
        begin
            if ((j-i)>=2) and ((j-i)<(n-1)) then
            begin
                d:=sqrt(sqr(x[j]-x[i])+sqr(y[j]-y[i]));
                if d>d_max then d_max:=d;
            end;
        end;
    end;
 writeln('Самая длинная диагональ: ',d_max:2:1);
 readln;
end.