Вычислить длину наибольшего звена ломанной - Turbo Pascal

uses crt;
type point=record
           x,y:real;
           end;
const n=5;
var a:array[1..n] of point;
     i,imx:byte;
    mx:real;
begin
clrscr;
randomize;
writeln('Введите координаты точек');
for i:=1 to n do
 begin
  writeln('Точка ',i);
  readln(a[i].x,a[i].y);
 end;
writeln;
mx:=sqrt(sqr(a[1].x-a[2].x)+sqr(a[1].y-a[2].y));
imx:=1;
for i:=2 to n-1 do
if sqrt(sqr(a[i].x-a[i+1].x)+sqr(a[i].y-a[i+1].y))>mx then
 begin
  mx:=sqrt(sqr(a[i].x-a[i+1].x)+sqr(a[i].y-a[i+1].y));
  imx:=i;
 end;
write('Наибольшее звено ',imx,'-',imx+1,' его длина=',mx:0:1);
readln
end.