Заданный текст содержит только цифры и буквы. определить обладает ли он следующим свойством текст содержит ровно две цифры. написать программу в delphi

Program PT;
{$APPTYPE CONSOLE}
Var
   S:string;
   i,k:integer;
Begin
Write('Text: ');
ReadLn(S);
For i:= 1 to Length(S) do
    if ('0'<=S[i])and(S[i]<='9') then k:=k+1;
WriteLn(k=2);
ReadLn
End.