Pascal/Turbo Pascal - Pequeña duda con otro problema de pascal

Por qué cuando tengo que ingresar una cantidad de números me pasa que me pide uno de más...por ejemplo pongo el FOR 1 a 5 y en lugar de tener que ingresar 5 tengo que ingresar 6? me gustaría saber el porqué.

Es un programa para sacar la mayor diferencia entre entre los numeros que ingreso.

Mil gracias desde ya.



program dsds(input,output);
uses crt;
var i,m,n,max,min:integer;


begin

writeln('ingresar cantidad de numeros');
readln(n);
writeln('ingrese numeros');
readln(m);
max:=m;
min:=m;
for i:=1 to n do
begin
readln(m);
if m>max
then max:= m
else if m<min
then min:=m
else;
end;
writeln('la mayor diferencia es', max-min:3);

repeat until keypressed;
end.

[El problema que tienes es el siguiente }

program dsds(input,output);
uses crt;
var i,m,n,max,min:integer;


begin

writeln('ingresar cantidad de numeros');
readln(n);
writeln('ingrese numeros');
readln(m); {En este lugar ingresas ya un numero por lo tanto tienes que realizar un decremento }
{ de uno por dicha entrada si no saldra una mas}
max:=m;
min:=m;
for i:=1 to n - 1 do {quedaría como ves}
begin
readln(m);
if m>max
then max:= m
else if m<min
then min:=m
else;
end;
writeln('la mayor diferencia es', max-min:3);

repeat until keypressed;
end.

Cierto,...soy un tonto.

Gracias por tu ayuda.