Ошибка в программе в Делфи

[Den55]

Ребят помогите найти ошибку и исправить,чтобы программа работала правильно

{Задано множество точек на плоскости.
Выбрать из них четыре разные точки,
которые являются вершинами квадрата
наибольшего периметра.}

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

const n=6; {kol-vo tochek}
var x, y, a, b, c, d:array[1..n] of byte;
p:array[1..n] of real;
i,j,k,l,t,nmax:byte;
ab,ac,max:real;

begin
{vvod tochek}
for i:=1 to n do
begin
writeln('i');
readln (x[i],y[i])
end;
{p:=mn-vo perimetrov kvadrata}
ac:;
t:;
for j:=1 to n-1 do
for i:=j+1 to n do
if x[j]=x[i] then
for k:=1 to n do
if y[j]=y[k] then
begin
ab:=sqrt(sqr(x[j]-x[i])+sqr(y[j]-y[i]));
ac:=sqrt(sqr(x[j]-x[k])+sqr(y[j]-y[k]));
if ab=ac then
for l:=1 to n do
if (x[k]=x[l])and (y[i]=y[l]) then
begin
t:=t+1;
a[t]:=j;
b[t]:=i;
c[t]:=k;
d[t]:=l;
p[t]:=ac;
end;
end;
max:[1];
nmax:=1;
for i:=2 to n do
if p[i]>max then
begin
max:[i];
nmax:=i
end;
{vivod P & nomerov tochek}
if max<>0 then
begin
writeln('p=' , max:2:2);
writeln('pri tochkah:#' , a[nmax],',',b[nmax],',',c[nmax],',',d[nmax])
end;
readln;
readln;
end.