Вычислить произведение ряда

uses crt;
var x:array[1..1000] of real;
    n,i:integer;
    s,p:real;
    c:char;
    st:string;
begin
writeln('Вводите вещественные числа в строку через пробел, окончание ввода Enter');
n:=0;
st:='';
repeat
 c:=readkey;
 if c in [' ',#13] then
  begin
   write(c);
   val(st,p,i);
   if i=0 then
    begin
     n:=n+1;
     x[n]:=p;
     st:='';
    end
  end
 else
  begin
   write(c);
   st:=st+c;
  end;
until c=#13;
clrscr;
writeln('Введенная последовательность:');
for i:=1 to n do
write(x[i]:0:2,' ');
writeln;
if n mod 2<>0 then p:=0
else
 begin
  p:=1;
  for i:=1 to n div 2 do
  p:=p*(sqr(x[i])-sqr(x[n-i+1]));
 end;
write('P=',p:0:4);
end.

Program CHISLO;
uses
  Crt;
Var k : Integer;
a, b, c : longint;
Begin
Writeln('ВВЕДИТЕ ПОРЯДКОВЫЙ НОМЕР ИСКОМОГО ЧИСЛА');
Readln(k);
a:=0; b:=1;
While a<k Do
Begin
inc(b,10);
c:=2;
While (b Mod c<>0) And (c<sqrt(b)) Do Inc(c);
If c>=sqrt(b) Then Inc(a);
End;
Writeln(b);
Readln;
End.