Помогите пожалуйста с нечетными числами натурального ряда.

[Clockgen]

Здравствуйте помогите пожалуйстанаписать программу вычисления произведения нечетных чисел натурального ряда.Натуральный ряд содержит К-чисел.Полученное произведеие разделить на К.К-вводить с клавиатуры.
Здесь имеется программа,она запускается но неправильно,что может быть не так?

program сhisla;
uses crt;
var p,i,k,c,s,s1,s2,b:byte;
k1:byte;
begin
clrscr;
k:=0;
readln(k);
for i:=1 to k do
begin
c:=k div k;
k1:=c+2;
s:=k1;
b:=c+4;
s1:=b;
s2:=s*s1;
end;
p:=s2 div k;
writeln('Proizved=',p);
readln;
end.

[Викдон]

var a,b:integer;
    k,i,c,p:integer;
    flag:boolean;
begin
flag:=false;
  write('Введите k ');
  readln(k);
   if k mod 2 =0 then {чет/нечет}
    flag:=true;

   case k of
   0: begin
        write('Итог 0');
        readln;
        exit;
      end;
   1:begin
        write('Итог 1');
        readln;
        exit;
      end;
   2:begin
        write('Итог 1');
        readln;
        exit;
      end;
   end;

  c:=1;
  p:=1;


    while true do
      begin
        c:=c+2;
        p:=p*c;

        if (flag) and (c=k-1) then
         break;

        if (flag=false) and (c=k) then
         break;
      end;

write('Итог: ',p);
readln;
end.