5 строка. Ключевое слово begen, а должно быть begin
7 строка. В конце строки пропущен знак окончания строки ";"
8 строка. Оператор ввода указан readen(x), а нужно readln(x)
9 строка. В операторе цикла параметр цикла i приравнивается к 1, а нужно присваивать, т.е. i:=1 (пропущено двоеточие перед =)
18 строка (последняя). Конец программы всегда отмечается знаком "точка", она пропущена, т.е. нужно написать end.