Паскаль ! ввести число в пятнадцатиричной системе счисления. если такое число может существовать, вывести "да", если не может - вывести "нет"

шестнадцатеричная система счисления — позиционная система счисления по целочисленному основанию 16. в качестве цифр этой системы счисления обычно используются цифры от 0 до 9 и латинские буквы от a до f. буквы a, b, c, d, e, f имеют значения 1010, 1110, 1210, 1310, 1410, 1510 соответственно.

Const n=8; var  a: array[1..n,1..n] of integer; i,j,k,s,s1,si,dmin,smin: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to n do   begin   a[i,j]: =random(50);   write(a[i,j]: 4);   end;   writeln;   end; write('k = '); readln(k); s: =0; for j: =1 to n do s: =s+a[k,j]; writeln('s = ',s); dmin: =999999; smin: =999999; for i: =1 to n do   if i< > k then   begin   s1: =0;     for j: =1 to n do s1: =s1+a[i,j];   writeln('s',i,' = ',s1);   if abs(s1-s)< dmin then begin dmin: =abs(s1-s); smin: =s1; si: =i; end;   end; writeln('номер строки = ',si,', smin = ',smin); end. пример: исходный массив:     9   0   22   40   20   35   2   25   23   30   22   35   41   0   9   40     1   15   6   18   43   47   34   33   26   5   2   45   13   46   40   2   26   39   7   31   3   43   20   8   25   15   24   6   10   16   3   25   47   0   27   35   14   15   36   11   16   38   14   14   33   7   11   26 k = 5 s = 177 s1 = 153 s2 = 200 s3 = 197 s4 = 179 s6 = 124 s7 = 185 s8 = 159 номер строки = 4, smin = 179

Var   n,max,i,a : longint; begin   readln(n); {количество чисел}   max: =0; {чтобы вывести 0 если нет двухзначных}   for i: =1 to n do       begin           readln(a); {хранить массив не надо т.к. он нигде не требуется}           if (a> 9) and (a< 100) and (a> max)               then max: =a;       end;   if max> 0       then writeln(max)       else writeln('нет двухзначных чисел') end.