Умножение через циклы, Попарное произведение Опции

[Домовой]

Я уже, наверное, немножко "поднадоел"?

Опять я встал при разработке программульки.
Вот задание:

Найти все трехзначные числа, которые в 7 раз больше суммы попарных произведений своих цифр (например, 182=7*(1*8+8*2+1*2))

Вроде все понятно и ясно.
Сейчас читал самоучитель и вроде вы понял, чтобы отображать например из числа 100 первую цифру,
надо использовать к переменной параметр [1], т.е. a=100, а отображение первой цифры a[1].

Но почему-то это не работает к присваиванию переменной

Вот код:

Код

var a, m: real;
      i: integer;

begin

   FOR i := 101 TO  999 DO
      begin
         a:=7*(i[1]*i[2]+i[2]*i[3]+i[1]*i[3]);
         writeln(a);
      end;

end.