символьный тип Опции

[dummy]

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

program maximum (input, output);
var c: char; n0, max, k: integer;
begin 
 n0:=0;
 max:=0;
  repeat
    read( с );
    if c<>' ' then 
       begin
          k:=0 
          repeat 
              k:=7*k+ord( c )-n0;
              read( c ) until c=' ';
              if k>max then max:=k
        end 
    else read( c )
   until c='.';
 writeln(max)
end.

код не хочет работать...совсем...ааа.... :molitva:

[Guest]

Спасибо огромное!!!
Readkey тольк пока нам использовать нельзя, но с основной идеей проги Вы меня успокоили...