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

uses crt;
type point=record
           x,y:real;
           end;
const nmax=50;
var a:array[1..nmax] of point;
    n,i,imx:byte;
    mx:real;
begin
clrscr;
randomize;
repeat
write('Количество точек ломаной от 3 до ',nmax,' n=');
readln(n);
until n in [3..nmax];
writeln('Точки');
for i:=1 to n do
 begin
  a[i].x:=-10+20*random;
  a[i].y:=-10+20*random;
  write(i:2,'(',a[i].x:5:1,';',a[i].y:5:1,') ');
  if i mod 5=0 then writeln;
 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.

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.