символы

[Nostalgia]

помогите пожалуйста доработать програмку!
дан текст; нужно найти найбольшее количество цифр, которое идёт в нём подряд.
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
const
n=10;
var
S:array[1..n] of char;
i:byte;
begin
writeln ('input string S');
for i:=1 to n do
read (S[i]);
for i:=1+i to n do
begin
if(S[i]>='0') and (S[i]<='9') then
writeln ('S=',S);
readln;
readln;
end;
{ TODO -oUser -cConsole Main : Insert code here }
end.

[alex_fcsm]

var s:string;
    i,max,temp:integer;
    flag:boolean;
begin
  readln(s);
  max:=0;
  temp:=0;
  flag:=false;
  i:=0;
  repeat
  inc(i);
  if flag and (s[i] in ['0'..'9']) then inc(temp);
  if flag and not(s[i] in ['0'..'9']) then begin
                                            if temp>max then max:=temp;
                                            flag:=false;
                                           end;
 if not flag and (s[i] in ['0'..'9']) then begin
                                             temp:=1;
                                             flag:=true;
                                            end;
  until i=length(s);
  if temp>max then max:=temp;
  writeln(max);
end.

[Nostalgia]

код почемуто не работает. пишет ошибку roject2.exe raised exception class EInOutError wirh message 'I/O error6'. Process stoped. Use Step or Run to continue.

[alex_fcsm]

Это все под Паскаль!

[Nostalgia]

ну так он мне и нужен.

[alex_fcsm]

Все работает. Проверено на последовательности
dsfghjgf09898789dg7d97fg9d7fg987f

[Nostalgia]

так у меня даже окно для ввода не появляется из-за этой ошибки. я на delphi7 проверяю

[alex_fcsm]

Так я и пишу что это на Паскале. Вы же делаете консольное приложение в Delphi

[alex_fcsm]

У Вас должно быть что-то такое(к сожалению Delphi под рукой нет)

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var s:string;
    i,max,temp:integer;
    flag:boolean;
begin
  readln(s);
  max:=0;
  temp:=0;
  flag:=false;
  i:=0;
  repeat
  inc(i);
  if flag and (s[i] in ['0'..'9']) then inc(temp);
  if flag and not(s[i] in ['0'..'9']) then begin
                                            if temp>max then max:=temp;
                                            flag:=false;
                                           end;
 if not flag and (s[i] in ['0'..'9']) then begin
                                             temp:=1;
                                             flag:=true;
                                            end;
  until i=length(s);
  if temp>max then max:=temp;
  writeln(max);
end;

end.

[Nostalgia]

да.......но при вводе строки выводятся цыфры,которых даже нет в строке