Составить логическую функцию 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.

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

Можно и улучшить... Например, непонятно, зачем тебе еще один массив. Не проще ли запомнить разность между первым и вторым элементами массива, а потом проверять все остальные разности? Вот так как-нибудь:

function proba (A: tvector; n:integer):boolean;
var
  i, delta: integer;
begin
  delta := a[2] - a[1];
  result := false;
  for i := 1 to n - 1 do begin
    if (A[i+1] - A[i]) <> delta then exit;
  end;
  result := true;
end;

?

Cпасибо за совет) учту.