как после служебного слова then должен стоять только один
оператор.Если вы напишите два оператора подряд, например:
If x<>0 then y := 1/x ; x: = 0 ;
то второй оператор выполнится в любом случае, независимо от проверяемого условия.
Если требуется выполнить последовательность действий (нескольких операторов подряд), то её заключают в блок, образуемый операторами begin и end.