Como hacer ejercicio con pascal

Se puede hacer de muchas formas, cuando estaba dando pascal esta manera era mi preferida por que es fácil de entender. Bueno es algo así:
program blankcorrea;
uses wincrt;
Var
     valor:integer;
     n:integer;
     max:integer;
     min:integer;
     res:char;
begin
      max:=0;
      min:=0;
      Repeat
           read valor;
           if (valor > max) then
                   max:=valor;
           if (valor < min) then
                   min:=valor;
           sum:=sum+valor;
           writeln "Desea continuar con el programa:(S/N)";
           readln(res);     
        Until res="n" or res="N";
         writeln "El mayor numero ingresado es:";
         writeln max;
         writeln "El menor numero ingresado es:";
         writeln min;
         writeln "La suma da:";
         writeln sum;
end.