pętla w pascalu

pętla w pascalu

witam mam taki fragment programu pisanego w j pascal
if (lancuch>=chr(97)) or (lancuch<=chr(122)) then m:=m+1;
if (lancuch>=chr(65)) or (lancuch<=chr(90)) then d:=d+1;
if (lancuch>=chr(48)) or (lancuch<=chr(57)) then c:=c+1;
łańcuch to ciąg znaków wie ktoś jaką pętlę postawić aby nie sprawdzało tylko pierwszego znaku z ciągu tylko wszystkie. Potrzebne na zaraz xD