Turbo Pascal: check if string contains numbers

As its said in the tile im trying to check if a string contains a number for an if-statement. Here is what i got so far. Also if you can help me how to format that code here correctly would be awesome aswell :D

repeat writeln; writeln('Ok, geben Sie bitte ihre zuknftiges Passwort ein.'); writeln('Achtung: Der Text kann nach einer Verschlsselung mit PW'); writeln(' nur mit dem selben PW wieder entschlsselt werden.'); readln(PW); pwLength:= Length(PW); errornumlength:='123456789'; errorLength:= Length(errornumlength);

         repeat
         errorStelle:= errorStelle + 1;
         errornum:= pos(errornumlength[errorStelle],PW);
         until errorStelle=Length(errornumlength);
         error:= errornum;

                 if Length(PW)=0 then
                 begin
                 error:=1;
                 end;
                 if Length(PW)>25 then
                 begin
                 error:=1;
                 end;
                 if error>0 then
                 begin
                 writeln('ERROR: Deine PW muss mindestens 1-nen Buchstaben besitzen,');
                 writeln('       keine Zahlen enthalten und unter 25 Zeichen betragen!');
                 readln;
                 clrscr;
                 end;

until error=0;

Thx for the help