Почему Pascal не видит символ "; "?

Попробуй так: var s: string; A,N,M,X,Y,Z: integer; begin write ('s: '); readln (s); A: =1; N: =4; while (A<15) and (N<15) do for A: =1 to (N-1) do begin X: =StrToInt (s[1]); Y: =StrToInt (s[2]); Z: =StrToInt (s[3]); M: =100*X+10*Y+Z; A: =A+4; N: =N+3; end; if M<256 then writeln ('YES') else writeln ('NO'); end.