В заданный непустой текст входят только цифры и буквы. Определить, удовлетворяет ли он следующему свойству: текст начинается с некоторой ненулевой цифры, за которой следуют только буквы, и их количество равно числовому значению этой цифры- Pascal(Паскаль)

program cyb31;
var
 s: string;
 i: byte;
 b: boolean;
begin
 writeln('VVedite tekst: ');
 readln(s);
 b:= true;
 for i:= 2 to Length(s) do
  if not (s[i] in ['a'..'z']) and not (s[i] in ['A'..'Z']) then
   b:= false;
 if (s[1] in ['1'..'9']) and (Length(s)-1 = ord(s[1])-ord('0')) and b then
  writeln('Udovletvor9et')
 else
  writeln('Ne udovletvor9et');
 readln;
end.