Факториал - PascalABC.NET

Формулировка задачи:

Хочу написать программу вычисляющею факториал. Сначала показалось что все легко, но... Написал то что ниже. n - ввод, x - выводное значение. Программы почему-то не работает. Как я понял методом отладки, в частности в проге не работает умножение x на i. Я собственно выделил. Исправьте мою ошибку и объясните что не так я сделал.

program factorial;
var 
i, n, x, y: integer;
begin 
readln (n);
i :=1;
while i < n do begin
i := i + 1;
x := x * i;               // вот здесь не работает почему-то....
end;
writeln ('x', x);
writeln ('i', i);
end.

Решение задачи: «Факториал»

Листинг программы

program factorial;
var 
i, j, n, x, y: integer;
begin 
readln (n);
i:=0;
x:=1;
for j:=1 to n do
begin
i := i + 1;
x := x * i;              
end;
writeln ('x = ', x);
writeln ('i = ', i);
end.

Объяснение кода листинга программы

В этом коде выполняется вычисление факториала числа n с помощью цикла for.

Сначала объявляются переменные i, j, n, x, y типа integer (целое число).
Затем с помощью функции readln() в переменную n считывается из консоли натуральное число, которое будет возводиться в факториал.
Переменная i инициализируется значением 0, а переменная x - значением 1.
Далее, в цикле for от 1 до n выполняется последовательное возведение x в степень i. При каждой итерации значение i увеличивается на 1, а значение x умножается на i.
После завершения цикла выводятся значения x и i. Список действий:
Считать из консоли натуральное число в переменную n.
Инициализировать i = 0, x = 1.
Выполнить цикл for от 1 до n, увеличивая i на 1 и умножая x на i на каждой итерации.
Вывести значения x и i.