Контроль ввода данных (тяжёлый случай)

[shewlett]

Выручайте. Программа работает, но необходим контроль ввода данных. Ума не приложу как это сделать в данной ситуации, когда у меня каждый элемент текста является символом типа char

PHP код:

program numbers;
{Дан непустой текст, состоящий из цифр, за которым следует точка.
 Вывести на экран дисплея цифру, наиболее часто встречающуюся в этом тексте
(если таких цифр несколько то вывести любую из них)}
var a : char;
    q : integer;
    X : array [0..9] of integer;
    I, max, otv: integer;
begin
write('Введите непустой текст, состоящий из цифр, за которым следует точка: ');
  repeat
   begin
     for i:= 0 to 9 do begin
     X[i] := 0;
       end;
while true do begin
 read(a);
   if a = '.' then break;
   inc(x[strtoint(a)]);
       end;
  max := 0;
  otv := 0;
    for i := 0 to 9 do begin
if x[i] > max then begin
  max := x[i];
  otv := i;
       end;
       end;
writeln(otv);
       end;
  writeln('Для завршения работы нажмите 0. Чтобы остаться, нажмите любую цифру, кроме 0.',' ');
  readln(q);
until q = 0;
  end. 


[ViktorR]

Если правильно понял, то как вариант:
описать константную строку вида
sDec = '0123456789';
После ввода символа проверять, есть ли такой символ в этой строке.
Если нет, то на ввод, иначе обрабатываем.
Вот не знаю, как в том компиляторе что у Вас, но при чтении надо использовать readln() а не read(), поскольку Read() не считывает символов возврата каретки и поведение программы ...


Как-то так, ...