Мне нужно написать программу, в которой при заполнении матрицы нельзя будет вводить буквы и цифры, которые не входят в диапазон [-99;999], если бы пользователь вводил неверный символ, то на экране бы появлялось сообщение "ошибка, введите заново".
помогите, пожалуйста... .
program p1;
uses crt;
var mt:array[1..50,1..50] of integer;
m,n:integer;
i,j:integer;
nr:string;
k:integer;
g:boolean;
function isNumber(nr:string;var c:integer):boolean;
var cd:integer;
b:boolean;
begin
b:=true;
val(nr,c,cd);
if cd=0 then isNumber:=(c>-99)and(c<999)
else isNumber:=false;
end;
begin
write('m=');readln(m);
write('n=');readln(n);
for i:=1 to m do
for j:=1 to n do
begin
repeat
write('Mt[',i,',',j,']=');
readln(nr);
g:=isNumber(nr,k);
if not g then writeln('Oshibka vvoda! Poprobuite snova:');
until g;
mt[i,j]:=k;
end;
{Vivod}
clrscr;
for i:=1 to m do
begin
for j:=1 to n do write(mt[i,j]:4);
writeln;
end;
end.
⇢