Начинается ли строка с числа и равняется ли количество букв этому числу

[zeil94]

Задали текст, состоящий только из цифр и букв.Определить или начинается текст с некоторой ненулевой цифры, за которой следуют только буквы, и их количество равно значению этой цифры.
Надо сделать без String, а только с помощью Char.Буду очень благодарен.
Вот есть эта задача только со стрингом:

const
  n: set of char = ['1'..'9'];
 
var
  s: string;
  i, a, b: integer;
  p: boolean;
 
begin
  p := false;
  write('Введите строку: ');
  readln(s);
  for i := 2 to length(s) do
    if s[1] in n then begin
      p := true;
      if s[i] in n then begin
        p := false;
        break;
      end;
    end;
  
  if p = false then writeln('Нет') else
  if p = true then begin
    val(s[1], a, b);
    if (length(s) - 1) = a then writeln('Да')
    else writeln('Нет');
  end;
end.

[eoln]

Стринг можно рассмотреть как массив чаров

uses
  crt;
const
  digits: set of char = ['0'..'9'];
  abc: set of char = ['a'..'z', 'A'..'Z'];
 var 
  MyString: array[1..255] of char;
  ch: char;
  i, j, k: integer;
begin
  write('input string: ');
  k := 0;
  repeat
    ch := readkey;
    if ch in digits + abc then begin
      inc(k);
      MyString[k] := ch;
      write(ch);
    end;
  until ch = #13;
  writeln;
  val(MyString[1], j, i);
  if (i > 0) or (j = 0) or (j <> k-1) then begin
    writeln('NO');
    readln;
    exit
  end;
  for i := 2 to k do 
    if not (MyString[i] in abc) then begin
      writeln('NO');
      readln;
      exit
    end;
  writeln('YES');
  readln  
end.

[zeil94]

Спасибо, все супер) а можно как то сделать также только без readkey??

[Serge_Bliznykov]

напишите вместо ch := ReadKey;

Read(ch);

или ReadLn(ch), по желанию (поведение при вводе будет чуть другим)