Найти сумму положительных частей вектора C[15].Помогите составить программку в pascalabc

Тупой вопрос. Вектор=линейный массив?

//Проверил. Да, одинаково.
//Pascal ABC.NET 3.1 сборка 1219

Const
 n=15;

Var
 ar:array[1..n] of integer;
 i,s:integer;
begin
randomize;
 writeln('Array:');
 for i:=1 to n do
  begin
   ar[i]:=random(-10,10);
   write(ar[i]:4);
   if ar[i]gt;0 then s:=s+ar[i];
  end;
 writeln;
 write('Result:',s);
end.

Пример работы программки:
Array:
   3  -7   0   9  -9   6  -1   0   1   0  -7   9  -9  -5  -8
Result:28