Pascal/Turbo Pascal - Sumar una serie de enteros positivos

program SumaDeNumeros;

uses Crt;

var

  Numeros: array[1..4] of integer;

  i,total: integer;

begin

  for i:=1 to 4 do

    begin

      write(i, ': Ingresa un Numero: ');

      readLn(Numeros[i]);

      writeLn();

      writeLn();

    end;

  writeLn('=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/');

  writeLn('Presiona Enter para Seguir');

  readLn();

  ClrScr;

  write('Numeros: ');

  for i:=1 to 4 do

    begin

      write(Numeros[i]);

      if (i<4) then

        begin

          write(', ');

        end;

    end;

  writeLn();

  writeLn();

  writeLn('=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/=/');

  for i:=1 to 4 do

    begin

      total:=total+Numeros[i];

    end;

  writeLn('Total de la Suma de estos Numeros: ', total);

  readLn();

end.