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

uses crt;
var s:string;
    c:char;
    i,n,b,k:byte;
begin
writeln('Введите строку из букв и цифр, окончание ввода Enter');
repeat
c:=readkey;
if c in['0'..'9','A'..'Z','a'..'z','А'..'я','ё','Ё'] then
 begin
  write(c);
  s:=s+c;
 end;
if c=#13 then writeln;
until c=#13;
k:=0;
b:=0;
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then
 begin
  k:=k+1;
  n:=ord(s[i])-48;
 end
else b:=b+1;
if (b>0)and(k=1)and(n=length(s))then
 begin
  writeln('В строке помимо букв только одна цифра');
  write('и ее числовое значение равно длине строки')
 end
else
 begin
  writeln('В строке нет букв или не одна цифра');
  write('или ее числовое значение не равно длине строки')
 end
end.

uses crt;
var c:char;
    b,k,s,n:byte;
begin
writeln('Введите строку из букв и цифр, окончание ввода Enter');
b:=0; //букв
k:=0;//цифр
s:=0;//длина строки
repeat
c:=readkey;
if c in['0'..'9'] then
 begin
  s:=s+1;
  k:=k+1;
  write(c);
  n:=ord(c)-48
 end
else if c in ['A'..'Z','a'..'z','А'..'я','ё','Ё'] then
 begin
  s:=s+1;
  b:=b+1;
  write(c);
 end
else if c=#13 then writeln;
until c=#13;
if (b>0)and(k=1)and(n=s)then
 begin
  writeln('В строке помимо букв только одна цифра');
  write('и ее числовое значение равно длине строки')
 end
else
 begin
  writeln('В строке нет букв или не одна цифра');
  write('или ее числовое значение не равно длине строки')
 end
end.

uses crt;
const bk=['A'..'Z','a'..'z','А'..'я','ё','Ё'];
      cf=['0'..'9'];
procedure vvod(var s:string);
begin
writeln('Введите строку из букв и цифр:');
read(s);
end;
procedure obrabotka(s:string;var n,b,k:byte);
var i:byte;
begin
b:=0; //букв
k:=0;//цифр
for i:=1 to length(s) do
if s[i] in bk then inc(b)
else if s[i] in cf then
 begin
  inc(k);
  n:=ord(s[i])-48
 end;
end;
procedure vyvod(s:string;n,b,k:byte);
begin
if (b>0)and(k=1)and(n=length(s))then
 begin
  writeln('В строке помимо букв только одна цифра');
  write('и ее числовое значение равно длине строки')
 end
else
 begin
  writeln('В строке нет букв или не одна цифра');
  write('или ее числовое значение не равно длине строки')
 end
end;
var s:string;
    b,k,n:byte;
begin
vvod(s);
obrabotka(s,n,b,k);
vyvod(s,n,b,k);
end.