program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses  System.SysUtils;
var n, a, i, sum:integer;
begin
  sum := 0;
  write('Enter n: ');
  readln(n);
  for i := 1 to n do
  begin
    write('Enter ',i , ' number: ');
    readln(a);
    if a > 0 then
      sum := sum + a;
  end;
  writeln('Sum of positive numbers: ', sum);
  readln; // Чтобы консоль не закрывалась
end.

PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (s,n):=(0,ReadInteger('n='));
  loop n do begin
    var t:=ReadInteger;
    if t>0 then s+=t
    end;
  Writeln('Сумма положительных чисел равна ',s)
end.