[Alegun]

Совсем просто, можно более извращённо

Код:

b:=1;
for i:= 1 to Length(Login) do
case Login[i] of
'a'..'z','A'..'Z': inc(b);
end;
if i = b then {Нету СС} else {Есть СС}