встречено procedure а ожидался оператор

Ответ от Vlad Cepesh[мастер]
Program question190571574;
type massiv=array[1..100,1..2] of real;//Массив координат точек
var sr_abccissa,sr_ordinata:real;//обработка точек, получение результата
//ВВод данных
procedure VvodTochek(var arr:massiv; var n:byte);
var i:byte;
begin
write('Введите количество точек ');
readln(n);
for i:=1 to n do
begin
arr[i,1]:=-50+100*random;//X
arr[i,2]:=-50+100*random;//Y
end;
end;
//Вывод координат на экран
procedure Print(arr:massiv;n:byte);
var i:byte;
begin
writeln('Координаты: ');
for i:=1 to n do
write('(',arr[i,1]:6:1,';',arr[i,2]:6:1,') ');
writeln
end;
//Узнаем, попала ли внутрь точка
function Popala(x,y,r:real):boolean;
begin
Popala:= x*x+y*y <= r*r;//по формуле
end;
//обработка точек, получение результата
procedure Glavnaya(arr:massiv;n:byte;r:real; var sr_abccissa,sr_ordinata:real);
var i,k:byte;
begin
k:=0;
for i:=1 to n do
if Popala(arr[i,1],arr[i,2],r) then //Если попала внутрь, то
inc(k);
//если Все точки внутри круга
if k=n then
begin
writeln('Все точки внутри круга');
sr_abccissa:=0;
sr_ordinata:=0;
for i:=1 to n do
begin
sr_abccissa:=sr_abccissa+arr[i,1];//суммируем абсциссы
sr_ordinata:=sr_ordinata+arr[i,2];//суммируем ординаты
end;
writeln('Средняя абцисса =',sr_abccissa/n:0:2);
writeln('Средняя ордината =',sr_ordinata/n:0:2);
end
else
begin
writeln('Не попали в круг следующие точки: ');
for i:=1 to n do
if not Popala(arr[i,1],arr[i,2],r) then //ни одна точка не попала внутрь
writeln(i:2,' ',arr[i,1]:6:1,';',arr[i,2]:6:1);
end;
end;
var
arr:massiv;
n:byte;
x,y,r:real;
begin
readln(x);
readln(y);
readln(r);
VvodTochek(arr, n);//ВВод данных
Print(arr,n);//Вывод координат на экран
Popala(x,y,r);//Узнаем, попала ли внутрь точка
Glavnaya(arr,n,r,sr_abccissa,sr_ordinata);
end.

Ответ от 3 ответа[гуру]