Pascal/Turbo Pascal - sacar el mayor y menor de n numeros en pascal

salu2 como estan? tengo un pequeño problema en pascal, para sacar el numero mayor y menor de n cantidades de numeros??
esto es lo que he hecho.... debe ser sin arrays

Program Mayo;
uses crt;
var
num, mayor,i,n,num1:integer;
begin
clrscr;

writeln ('ingrese la cantidad de numeros'); readln(n);
for i:=1 to n do
begin
writeln ('Ingrese el numero',i); readln(num);

mayor:=num;

if num > mayor Then
mayor := num;
end;
writeln ('El numero mayor es: ',mayor);

readkey;

end.

Hola Santiago! el problema que noto en tu código es que en cada iteración asignas a «mayor» el valor de «num», y luego comparas, por lo cual siempre será igual, nunca mayor, y siempre indicará que el número mayor es el último. Te presento una solución a continuación:

*******************************************************
Program Mayo;
uses crt;
var
num, mayor,i,n,num1:integer;

begin
clrscr;

{inicializo la variable mayor en un valor bajo}
mayor:=-32768;
write ('ingrese la cantidad de numeros: '); readln(n);
for i:=1 to n do
begin
write ('Ingrese el numero ',i, ': '); readln(num);
{aqui elimino la linea donde asignabas «num» a «mayor», ya que solo se hace
si se cumple que «num» sea mayor que «mayor», valga la redundancia}
if num > mayor Then
mayor := num;
end;
writeln ('El numero mayor es: ',mayor);

readkey;

end.
***************************************************

Además retoqué algunas instrucciones como write, para que aparezca más prolijo en pantalla.
Para sacar el número mínimo, haces lo mismo, cambiando la inicialización de la variable (en lugar de mayor:=-32768 escribes menor:=32767), y verificando que «num» sea menor que «menor».
Un abrazo grande!

Hola! te mando esta propuesta, espero te sirva!.