Найти произведение квадратов нечетных чисел среди компонентов

Uses crt;
Var
  f: File of Longint;
  s: String;
  x,i,n,p: Longint;
BEGIN
Clrscr;
Randomize;
Writeln('Vvedite imya faila: '); Readln(s);
Writeln('Skolko chisel zapisat v fail? '); Readln(n);
Assign(f,s);
Rewrite(f);
For i:=1 to n do
begin
  x:=Random(10);
  Write(f,x);
end;
Writeln('Ishodnii fail: ');
For i:=0 to Filesize(f)-1 do
begin
  Seek(f,i);
  Read(f,x);
  Write(x:5);
end;
Writeln;
Writeln('Proizvedenie kvadratov nechetnih chisel: ');
p:=1;
For i:=0 to Filesize(f)-1 do
begin
  Seek(f,i);
  Read(f,x);
  If x mod 2<>0 Then
  p:=p*sqr(x);
end;
Writeln(p);
Close(f);
Readln
END.

const N = 10;
var
    f: file of Longint;
    i, x, p: LongInt;
begin
    randomize;
    Assign(f, 'out.txt');
    ReWrite(f);
    Write('Numbers: ');
    p := 1;
    for i:=2 to N do
    begin
        x := Random(10);
        Write(x, ' ');
        Write(f, x);
        if x mod 2 <> 0 then
            p := p * sqr(x);
    end;
    Writeln; Writeln('The product of the squares of numbers: ', p);
    Close(f);
end.