Как сделать, чтобы при выводе

...
proverka:
2+3+4+=?

не выводился последний плюс? Просто так для красоты...
Код программы:

var
a:array[1..500] of integer;
i,a1,d,n:integer;
s:real;

begin

writeln('vvedite 1yi 4len progressii');
readln(a1);

writeln('vvedite raznost progressii');
readln(d);

writeln('vvedite koli4estvo 4lenov progressii, dlya kotoryx neobxodimo naiti symmy');
readln(n);

s:=(2*a1 +(n-1)*d)*n/2;

writeln('cymma ',n,' 4lenov dannoi arifmiti4eskoi progressii = ',s);

writeln('proverka:');

for i:=1 to n do
a[i]:=a1+(i-1)*d;

for i:=1 to n do
write(a[i],'+');

write('=?');

end.

  for i:=1 to n do begin
    if i>1 then Write('+');
    write(a[i])
  end;

Спасибо за помощь.