как вставить в программу реакцию на ошибку

[Андрей К-в]

Есть программа, она работает с матрицами, всё нормально, только если не введешь никакого символа матрицы и нажмешь 'Enter' происходит просто переход на другую строку и всё. Нужно сделать что-бы сообщила о том, что не введен символ, и вернулась к строке ввода. Пробовал с "Repeat ...until", но видимо что-то не так делаю.
Это процедура ввода данных:
{2. Описание процедуры InpMas - ввод элементов массивов}

procedure InpMas(var m : MyArr);
begin
for i:=1  to n do begin
     for j:=1  to n do begin
      repeat
        write('(',i,',',j,')='); readln(m[i,j]);   { Ввод массива }
      until (m[i,j]='');
     end;
end;
end;

Это ссылка  головной программы  на эту процедуру:
ClrScr;
writeln('Введите элементы массива C');
InpMas(c);
writeln('Введите элементы массива T');
InpMas(t);
Summ(c,s1);
Summ(t,s2);

Помогите кто может, очень срочно надо, завтра зачет.

[Hacker19_90]

{$I-}
Read (chislo);
if IOResult <> 0 then Writeln ('Введено не верное число');
{$I+}

это проверка если заместо числа введёте символ!

[Андрей К-в]

Да, но могут вводится и нули, а мне нужно что-бы реакия была только на ввод '' или на ввод буквенных символов. Это поможет?

[Hacker19_90]

ввод буквенных символов.

Поможет!!!

на ввод ''

В данном случае, ввода не происходит!

[Андрей К-в]

А где это нужно прописать?

Вставил вроде куда нужно, только теперь на ввод лбого числа, кроме нуля надпись "введено неверное число" на пустую строку также никакой реакции.

procedure InpMas(var m : MyArr);
begin
for i:=1  to n do begin
     for j:=1  to n do begin
      write('(',i,',',j,')=');
      {$I-} readln(m[i,j]);   { Ввод массива }
      if (m[i,j]) <> 0 then Writeln ('Введено не верное число');
      {$I+}

     end;
end;
end;

Что не так?

[Hacker19_90]

Вы на мой код посмотрите!!! Там в условии IOResult

[Андрей К-в]

Если писать как Вы подсказали, выдается ошибка "неизвестный идентификатор IOResult".


if IOResult <> 0 then Writeln ('Введено не верное число');

[Hacker19_90]

У вас паскаль какой???

[Андрей К-в]

Для начинающих. ABCPascal. Версия 3.0

[Hacker19_90]

Ну что ж вы ТС сразу не сказали!
Используйте в ABC Pascal
try
блок, в котором может быть ошибка
except
что надо сделать если произошла ошибка
end;
То есть как то так

try
    Read(chislo);
except 
    Writeln ('АААААА КАРАУЛ ОШИБКА ! ВЫ ВВЕЛИ НЕ ВЕРНОЕ ЧИСЛО!)
end;