от чего зависит изменение внешнего вида спрайта при изменении его направления? ответ должен быть в единственном числе и именительном падеже

Во-первых, программа содержит ошибки, должно быть так:
var
  k, m, day: integer;
  A: array[1..6] of integer;

begin
  A[1] := 3;
  A[2] := 1;
  A[3] := 4;
  A[4] := 2;
  A[5] := 4;
  A[6] := 2;
  day := 1;
  m := A[1];
  for k := 2 to 6 do
  begin
    if A[k] >= m then
    begin
      m := A[k];
      day := k;
    end;
  end;
  write(day);
end.

Эта программа отыскивает последний из дней недели, в котором количество опоздавших превысит количество опоздавших в понедельник.
Будет выдано значение 5, т.е. событие имело место в пятницу, когда опоздали четверо.

1. Две рядом стоящие цифры могут дать максимум 18 (сочетание 99), поэтому все четырехзначные варианты, содержащие пары больше 18 отбрасываем (1916,1619).
2. Результат 1616 может получиться только как комбинация 8+8, т.е исходным было число 888. Найдено первое число.
3. Результат 169 может быть образован из числа 881, это второе число.
4. Результат 163 никак не может быть получен, потому что 16 - это 9+7, 8+8 или 7+9, но даже 7, сложенное с 0 даст уже 7, а не 3.
5. Результат 316 по той же причине не может быть получен - число 3 это сумма 1+2, но даже 2+9 не даст 16.
6. Результат 916 может быть получен из 188, но только как комбинация 9,16, что нарушает порядок невозрастания. Бракуем.
7. Результат 116 может быть получен из 651, это третье число.
ответ: 3 числа.