строки

Program Stroki;
 {Задание: Найти группы цифр в строке и при том такие, чтоб они начинались
  и кончались одной и той же цифрой}
Var
 Stroka_Vvoda: String; {переменная ввода строки}
 Stroka_Rew: String;
 i: Byte;
 Rew: Boolean;
Begin
 {Обнуление}
 Stroka_Rew[0]:=#0;
 Rew:=False;
 {Выводим запрос на ввод строки}
 Write('Введите строку: ');
 {Ждем ввода пользователем строки}
 ReadLn(Stroka_Vvoda);
 {Просматриваем введенную строчку}
 For i:=1 to Length(Stroka_Vvoda) do
  {Если введены цифры}
  If (Ord(Stroka_Vvoda)>47) and (Ord(Stroka_Vvoda)<58) then
   Begin
    Rew:=True;
    {Записываем в строку решения данную цифру}
    Stroka_Rew:=Stroka_Rew+Stroka_Vvoda;
   End
 Else
  {Если символ не цифра}
  If Rew=True then
   Begin
    {если были цифры}
    If Stroka_Rew[1]=Stroka_Rew[Length(Stroka_Rew)] then
                                                       WriteLn('Условие выполнено: ', Stroka_Rew);
    Rew:=False;
    Stroka_Rew[0]:=#0;
   End;
 ReadLn;
End.

Program Kodirovka;
Var
 i: Byte;
Begin
 For i:=48 to 57 do
  WriteLn(Chr(i));
 ReadLn;
End.