Паскаль .в заданном массиве найти сумму положительных элементов. вывести исходный массив и результат

//Pascal ABC.NET v3.1 сборка 1219

Const
  n=5;

 Var
 ar:array[1..n] of integer;
 i,k:integer;
begin
 for i:=1 to n do
  begin
   readln(ar[i]);
   if ar[i]>0 then k:=k+ar[i];
  end;
 writeln('Array:');
 for i:=1 to n do
 write(ar[i]:4);
 writeln;
 write('Res:',k);
end.

Пример ввода:
-1
-2
1
2
0
Пример вывода:
Array:
  -1  -2   1   2   0
Res:3