Содержит ли строка цифры

uses crt;
var i,j,k,l: integer;
    s,s1: string;
    num: set of char;       {множество символов}
begin
 clrscr;
 num:=['0'..'9'];         {заполняем множество цифрами}
 write('Введите строку: ');
 readln(s);
 j:=trunc(length(s)/2)+1;     {узнаем половину длины строки}
 k:=j;
 while k<>0 do
  begin
   if k mod 2 = 0 then
    s1:=s1+'0'                  {заполняем}
   else                         {последовательнсоть}
    s1:=s1+'1';                 {0}
   dec(k);                      {и}
  end;                          {1}
 for i:=1 to length(s) do
  if s[i] in num then           {проверяем наждение чисел в строке}
   inc(l);
  if l=0 then                   {если нет,}
   begin                        {то}
    insert(s1,s,j);             {вставляем посередине}
    writeln(s);                 {послед-ть и выводим на экран}
   end
  else                          {иначе}
   writeln('Содержит числа');   {вывод собщения}
 readln;
 end.