Помогите, не запускается, пишет, что безызвестен идентификатор хprogram z13_6;uses crt;type

Помогите, не запускается, пишет, что безызвестен идентификатор х

program z13_6;
uses crt;
type point1=array[(x,y)] of real;
point2=record
x,y: real;
end;
var p1: point1;
p2: point2;
d: real; i:integer;
begin
readln(p1[x]); Координаты 1ой точки
readln(p1[y]);

readln(p2.x); Координаты 2-ой точки
readln(p2.y);

d:=sqrt(sqr(p1[x]-p2.x)+sqr(p1[y]-p2.y));
writeln(d); Расстояние меж точками
readln;
end.