Определить попадание точки в квадрат — Pascal(Паскаль)

uses crt;
const max=50;
var y:array[1..max] of real;
    n,i,imx,k:integer;
    p:real;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  y[i]:=10*random;
  write(y[i]:0:2,' ');
 end;
writeln;
writeln;
p:=1;
k:=0;
for i:=1 to n do
if trunc(y[i])=round(y[i]) then
 begin
  p:=p*y[i];
  k:=1;
 end;
if k=0 then
 begin
  write('Нужных чисел в массиве нет!, замена не производится.');
  readln;
  exit;
 end;
writeln('Произведение=',p:0:2);
imx:=1;
for i:=1 to n do
if y[i]>y[imx] then imx:=i;
y[imx]:=p;
writeln('Замена максимального на произведение:');
for i:=1 to n do
write(y[i]:0:2,' ');
readln
end.