динамические массивы в паскале

[Irishka18]

подсчитать число точек,лежащих внутри круга радиуса R с центром в начале координат. координаты точек определены массивами X(N) и Y(N) соответственно.
сама программа у меня есть,но оказалось,что нужно было динамические массивы использовать,а с ними я ничегошеньки не понимаю...=(((
вот моя часть программы,как её подправить?

program proc;
uses crt;
Const n=6; m=8;
var i,k1,s1,k2,s2:integer; z:real;
x:array[1..n] of integer;
y:array[1..m] of integer;
Procedure m0(var s1,k1:integer);
Begin
k1:=0;s1:=0;
for i:=1 to n do
if x[i]>=0 then begin inc(k1);s1:=s1+x[i] end;
end;
Procedure m1(var s2,k2:integer);
Begin
k2:=0;s2:=0;
for i:=1 to m do
if y[i]<0 then begin inc(k2);s2:=s2+y[i] end;
end;
Begin
clrscr;
randomize;
write('Massiv X:');
for i:=1 to n do
begin
x[i]:=random(3)-1;
write(x[i],' ');
end;writeln;
write('Massiv y:');
for i:=1 to m do
begin
y[i]:=random(3)-1;
write(y[i],' ');
end;writeln;
m0(s1,k1);
m1(s2,k2);
z:=(exp(s1)+exp(s2))/k1/k2;
write('Z=',z);
readln;
End.