Что не так? Как исправить предупреждение ? Ниже скрин и весь код var x, L, M, f: integer;
begin
for f := 100 to 321565 do
begin
L := x - 16;
M := x + 16;
x := f;
while L <> M do
if L > M then
L := L - M
else
M := M - L;
if M = 16 then writeln(x)
end;
end.

Переменную объявить в цикле

Объяснение:

Пример

for i: integer := 1 to 9 do

   Print(i);

 // Здесь переменная i не доступна!

 for var i := 9 downto 1 do // описание с автоопределением типа

   Print(i);

У Вас тоже самое сделайте - уберите описания из глобального описания и объявите в циклах

var x, L, M: integer;

for f: integer := 100 to 321565 do