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

Спасибо)))

//Pascal ABC.NET v3.1 сборка 1219Const  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-2120Пример вывода:Array:  -1  -2   1   2   0Res:3