Пусть дано N произвольных точек плоскости, абсциссы и ординаты которых записаны соответственно в целочисленные массивы X и Y. Определить длину наибольшего из всех возможных отрезков, составленных из этих точек. Оформить процедурами ввод и вывод координат точек. Оформить функцией расчет длины каждого отрезка. Составить программу на Паскале. Срроооочно!!!!!!

Ну говори, что не так

Я постораюсь исправить

Я уже сделал

Хорошо(

*)

varx,y,rast:array [1..100] of Integer ;n:Integer;function maxrast(n:Integer;x,y:array [1..100] of integer): real;var i,j:integer;max:real;begin for i:=1 to n dofor j:=1 to n doif sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]))>max thenmax:= sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]));maxrast:=max;end;procedure vvod(n:Integer);var i:integer;beginfori:=1 to n dobeginWriteLn('Введите координату x ',i,' отрезка');ReadLn(x[i]);WriteLn('Введите координату y ',i,' отрезка');ReadLn(y[i]);end;end;beginWriteln('Введите количество точек');ReadLn(n);vvod(n);Writeln('Длина наибольшего отрезка составленного из заданных точек = ',maxrast(n,x,y));end.