Описать функцию f(x) -число, которое состоит из всех нечетных цифр натурального числа Х ( Если все парные то f(x)=0). Составить программу которая выводит значения f(x1),… f(xn) для набора чисел — Pascal(Паскаль)

uses crt;
function F(x:longint):longint;
var y,z,s:longint;
    k:byte;
begin
y:=x;
z:=0;
s:=1;
while y>0 do
 begin
  k:=y mod 10;
  if odd(k) then
   begin
    z:=z+k*s;
    s:=s*10;
   end;
  y:=y div 10;
 end;
F:=z;
end;
const nmax=100;
var x:array[1..nmax] of longint;
    n,i:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Набор чисел:');
for i:=1 to n do
 begin
  x[i]:=random(65000)+1000000;
  write(x[i]:8);
 end;
writeln;
writeln('Набор чисел из нечетных цифр:');
for i:=1 to n do
 begin
  x[i]:=F(x[i]);
  write(x[i]:8);
 end;
readln
end.