В заданную непустую строку входят только цифры и буквы

const bk=['A'..'Z','a'..'z','А'..'я','ё','Ё'];
      cf=['0'..'9'];
      ds=bk+cf+[#8];
var
  Form1: TForm1;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ds)then key:=#0;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,n,b,c,k:integer;
    s:string;
begin
s:=Edit1.Text;
if s='' then
 begin
  showmessage('Вы не ввели строку');
  exit
 end;
n:=length(s);
c:=0;
b:=0;
for i:=1 to n do
if s[i] in cf then
 begin
  inc(c);
  k:=ord(s[i])-ord('0');
 end
else if s[i] in bk then inc(b);
if b=0 then showmessage('В строке нет букв')
else if c=0 then showmessage('В строке нет цифр')
else if c>1 then showmessage('В строке больше 1 цифры')
else if k<>n then showmessage('В строке 1 цифра, но ее значение не равно длине строки')
else showmessage('В строке 1 цифра ее значение равно длине строки')
 
end;