Matematické Fórum

Ahoj, potrebovala bych poradit s ukolem do algoritmu, zadani je:
Program načte přirozené číslo N (N>2) a dále posloupnost N nenulových čísel a zjistí, zda je tato posloupnost geometrická.
Něco jsem už vymyslela ale někde tam bude chyba a nevím jak to opravit, neukonci se mi tam nacitani tech cisel az jich napisu N.

program Pr_16posp0030;{Program nacte prirozené císlo N (N>2) a dále posloupnost N císel a zjistí,
zda je tato posloupnost geometrická.}

{$APPTYPE CONSOLE}

var n, I: integer;
    c, cp, k, kp: real;
    g: boolean;
begin
  g:=true;
  k:=0;
  writeln('zadej pocet prvku v posloupnosti, minimalni pocet prvku jsou 3');
  readln(n);
  if n>2 then
    begin
    writeln ('Zadavej cisla posloupnosti oddelene mezerou: ');
    read(c);
    cp:=c;
    for I:=1 to n-1 do
      begin
        readln(c);
        k:= c/cp;
        if I=1 then kp:=k;
        if kp<>k then g:=false;
        cp:=c
      end;
    if g then writeln ('Posloupnost je geometricka')
         else writeln ('Posloupnost neni geometricka');
    end
  else writeln ('Nekorektni zadani');
  readln;
end.

Budu moc ráda když poradíte. Díky míša