Пробовал решать, ничего не работает.
Program Tochka;
var s:array[1..10] of integer;
r, g, i, j, n:real;
begin
randomize;
begin
writeln('vvedite rasstojanija');
readln(n);
for i:=1 to n do
begin
s[i]:=random(10);
writeln(s[i]);
end;
if (s>r) and (s<g) then
inc(s);
writeln(s);
readln;
end.