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

[Андрей К-в]

А можно ли с помощью следующего текста сделать так, что-бы при вводе букв программа не заканчивала свое выполнение, а просила ввести цыфру и продолжить??

begin
for i:=1 to n do begin
for j:=1 to n do begin
write('(',i,',',j,')='); readln(m[i,j]); { Ввод массива }
while m[i,j]='' do begin
writeln('введен не правильный символ, повторите ввод');
readln(m[i,j]);
end;
end;
end;
end;