Найти расстояния от места добычи сырья до каждого завода

uses crt;
const nmax=20;
var x,y:array[1..nmax] of integer;
    n,i:byte;
    xc,yc:integer;
    r,sr:real;
begin
randomize;
repeat
write('Количество заводов от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
for i:=1 to n do
 begin
  x[i]:=10+random(50);
  y[i]:=10+random(50);
 end;
writeln('Координаты:');
write('N');
for i:=1 to n do
write(i:4);
writeln;
write('X');
for i:=1 to n do
write(x[i]:4);
writeln;
write('Y');
for i:=1 to n do
write(y[i]:4);
writeln;
writeln('Введите координаты места добычи сырья');
read(xc,yc);
sr:=0;
for i:=1 to n do
 begin
   r:=sqrt(sqr(x[i]-xc)+sqr(y[i]-yc));
   writeln('Расстояние до завода ',i,'=',r:0:1);
   sr:=sr+r
 end;
writeln('Среднее расстояние=',sr/n:0:1)
end.