В настройках электропитания при работе от батареи посмотри стоит ли опция замедлять работу жестких дисков. Если стоит отключи

Можно без массива решить

var
	n, a, oldA, nu, np, u, p, i: integer;
begin
	readln(n); read(oldA);
	nu:= 0; np:= 0; u:= 0; p:= 0;
	for i:= 2 to n do
	begin
		read(a);
		if a > oldA then
		begin
			u:= u+a-oldA; p:= 0;
			if nu < u then nu:= u;
		end;
		if a < oldA then
		begin
			p:= p+oldA-a; u:= 0;
			if np < p then np:= p;
		end;
		oldA:= a;
	end;
	writeln(nu, ' ', np);
end.