Задача на логическую функцию Опции

[Lodar']

Составить логическую функцию proba(A,n) принимающую значение true, если компоненты вектора А образуют арифметическую прогрессию, и значение false - в противном случае.
Вот мои наработки:

program Pr2;
const
maxsize=100;
type
tvector=array [1..maxsize] of integer;
function proba (A: tvector; n:integer):boolean;
var
i:integer;
c:array [1..(maxsize-1)] of integer;
begin
for i:=1 to n-1 do
 begin
  c[i]:=A[i+1]-A[i];
 end;
for i:=1 to n-1 do
 begin
  if c[i]=c[i+1] then continue
  else
   begin
    result:=false;
    exit;
   end;
 end;
result:=true;
end;

var
B:tvector;
n,i: integer;
D:boolean;
begin
writeln('введите размерность вектора');
readln(n);
for i:=1 to n do
 begin
  writeln('введите',i,'й элемент вектора');
  readln(B[i]);
 end;
D:=proba(B,n);
if D then writeln('да, арифметическая прогрессия')
     else writeln('нет, не арифметическая прогрессия');
readln;
end.

нормально? или можно что нибудь улучшить чтоб было более рационально? подскажите пожалуйста!