Определить, образует ли последовательность, составленная из дат, арифметическую или геометрическую прогрессию - Free Pascal

var
  n, i, next, cur, prev: integer;
  arith, geom: boolean;
begin
  write('Введите кол-во школьников: ');
  read(n);
  write('Введите дни рождения школьников: ');
  arith := true;
  geom := true;
  for i := 1 to n do
  begin
    read(next);
    if i > 2 then
    begin
      if next - cur <> cur - prev then arith := false;
      if next / cur <> cur / prev then geom := false;
    end;
    prev := cur;
    cur := next;
  end;
  if arith then writeln('Последовательность образует арифметическую прогрессию');
  if geom then writeln('Последовательность образует геометрическую прогрессию');
  if not(arith or geom) then writeln('Последовательность не образует прогрессий');
end.