No entiendo muy bien tu pregunta, parece el típico ejercicio donde se introduce 20 número y se comparan hasta decidir cual es el menor y cual es el mayor.
Si ese es el caso tengo la solución que paso a adjuntarte a continuación.
program numero_mayor;
uses crt;
var mayor,i,num,menor:integer;
BEGIN
clrscr;
for i:=1 to 20 do
begin
writeln ('Introducir un numero');
readln (num);
if num > mayor then
begin
mayor:=num;
end
else
if num < menor then
menor:=num;
end;
writeln ('El numero mayor es ', mayor);
writeln ('El numero menor es ', menor);
readln;
END.
Espero que te sea de utilidad, si no entiendes algo avísame.
