Определить является ли данная последовательность геометрической прогрессией - Free Pascal

var
  q : double;
  curr, prev : integer;
  isGeom : boolean = true;
 
begin
  repeat
    write('->'); readln(curr);
    if (q = 0) and (prev > 0) then q := curr / prev;
 
    if curr <> 0 then
    begin
      isGeom := isGeom and ((prev = 0) or (curr / prev = q));
      prev := curr;
    end;
  until curr = 0;
  writeln(isGeom);
end.