Почему 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.