Является ли введенный символ цифрой

var c:char;
begin
write('Введите символ c=');
readln(c);
if c in ['0'..'9'] then write('Это цифра')
else  write('Это не цифра');
readln
end.

const n=4;
      m=3;
var a:array[1..n,1..m] of integer;
    b:array[1..m] of integer;
    i,j:byte;
begin
writeln('Введите элементы матрицы, целые числа:');
for i:=1 to n do
for j:=1 to m do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
writeln('Полученная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:5);
  writeln;
 end;
for j:=1 to m do
 begin
  b[j]:=a[1,j];
  for i:=1 to n do
  if a[i,j]<b[j] then b[j]:=a[i,j];
 end;
writeln('Вектор минимальных значений столбцов матрицы:');
for i:=1 to m do
write(b[i]:5);
readln
end.

Const n=4;m=3;
Var A:array[1..n,1..m] of integer;
    B:array[1..m] of integer;
    i,j,imin,jmin:integer;
Begin
    writeln('Исходная матрица A[4,3]');
    For i:=1 to n do
     Begin
      For j:=1 to m do
       Begin
        A[i,j]:=random(11)-5;
        write(A[i,j]:3);
       End;
      writeln;
     End;
   writeln('Массив B[3]');
   For j:=1 to m do
    Begin
     imin:=1;
     jmin:=j;
     For i:=2 to n do
      if A[i,j]<A[imin,jmin] then 
       Begin
        imin:=i;
        jmin:=j;
       End;
     B[j]:=A[imin,jmin];
     write(B[j]:3);
    End;
   readln;
End.