Имеется строка, содержащая буквы латинского алфавита и цифры. Вывести на экран длину наибольшей последовательности цифр

uses crt;
var s:string;
    i,l,max:integer;
    M:set of char;
    flag:boolean;
begin
  clrscr;
  writeln('Введите строку ...');
  readln(s);
  M:=['0'..'9'];
  flag:=false;
  i:=0;l:=0;max:=0;
  repeat
    inc(i);
    if s[i] in M then
    begin
      if flag=false then
      begin
        flag:=true;
        l:=1;
      end
      else inc(l);
    end
    else begin
   if flag then
   begin
     if max<l then max:=l;
     flag:=false;
   end
   end;
  until i=length(s);
  if l>max then max:=l;
  writeln(max);
  readln;
end.

Экодом- сооружение, основной особенностью которого является низкое энергопотребление за счёт применения пассивных методов энергосбережения. пассивный дом потребляет среднем примерно 10 % от удельной энергии на единицу площади, потребляемой большинством традиционных зданий.

зеленый дом-неправительственная
некоммерческая организация из хабаровска. занимается социальной реабилитацией безработных и инвалидов, развитием сельских поселений на дальнем востоке и пострадавшим в результате стихийных бедствий.

постер — разновидность прикладной печатной графики, наборно-шрифтовое или художественно-иллюстративное листовое крупноформатное печатное тиражное издание, содержащее в наглядно-компактном виде информацию рекламного, агитационно-пропагандистского, инструктивно-методического, учебного и другого характера.

граффи́ти — изображения или надписи, выцарапанные, написанные или нарисованные краской или чернилами на стенах и других поверхностях.

принт — изображение, нанесенное определенным способом на ткань, бумагу или другую поверхность.

эргономичная мебель - это мебель, выполненная с учетом стандартов, необходимых для максимально удобной организации пространства, где человек проводит большую часть своего времени.

решение
А) Считаем округленно в большую сторону
Доска 1м 84руб
Надо ~~1м три штуки значит три длины 3м
84~~90руб
90•3=270руб полки
Стойка ~1,5м надо 4; 1,5•4=6м надо
по 43р это ~50руб
6м• 50=300руб
270+300=570руб
570> 470 не хватит
Ответ: нет не хватит 470 рублей

Б) целые метры продают; 3доски;
1)) 3•84= 252 руб стоят 3 доски
Стойки продают целые метры
2)) 139• 4= 556см=~6м
3)) 6•43= 258руб стоят 4 стойки
4)) 252+258= 510 руб стоит весь материал
470<510
Ответ: нет не хватит 470 рублей

В) 1)) 510:10= 51 руб это скидка 1/10
2)) 510- 51= 459 руб стоимость со скидкой
3)) 470> 459
470-459= 11руб останется
Ответ: 470 рублей хватит на покупку