ОБРАБОТКА ПОСЛЕДОВАТЕЛЬНОСТИ СИМВОЛОВ

[Максикок]

В тексте первый символ каждого слова - цифра, указывающая длину этого слова. Проверить правильность указания длины слов. На экран вывести заданные длины слов и вычисленные.

[GetMax]

Uses Crt;
Type
  Massiv=array[1..20] of string;
Var
  St,BufStr:String;
  Mas:Massiv;
  i,j,kol:Byte;
  Dl:Byte;
  Simvol:Char;
Begin
  ClrScr;
  Write('Введите строку: ');
  Readln(St);
  Writeln;
  j:=1;
  Kol:=1;
  For i:=1 to Length(St) do
  Begin
    If St[i] <> ' ' then Mas[j]:=Mas[j]+St[i]
    Else
    If St[i] = ' ' then
    Begin
      Inc(j);
      Inc(kol)
    End;
  End;
  BufStr:='';
  For i:=1 to kol do
  Begin
    Mas[i]:=BufStr;
    Dl:=Length(BufStr)-1;
    Simvol:=BufStr[1];
    Write('Заданная длина = ',Simvol, ' Вычисленная длина*  = ',Dl);
    BufStr:='';
  End;
  Readln
End.