Найти максимальный по значению элемент

const
  n = 20;
 
var
  max, k, i: integer;
  a: array[1..n] of integer;
  s: string;
 
function DecToHex(n: longint): string;
const
  zn: string[16] = '0123456789ABCDEF';//цифры в СС 16
var
  s: string;
begin
  s := '';
  while n > 0 do
  begin
    s := zn[n mod 16 + 1] + s;//берем остаток от деления на 16 и эту цифру пишем в начало строки
    n := n div 16;//сокращаем
  end;
  if s = '' then
    s := '0';
  DecToHex := s;
end;
 
 
begin
  for i := 1 to n do
  begin
    a[i] := random(100);
    write(a[i]:5);
  end;
  writeln;
  for i := 1 to n do
    write(DecToHex(a[i]):5);
  writeln;
  k := 0;  
  for i := 1 to n do
  begin
    s := DecToHex(a[i]);
    if s[Length(s)] = 'B' then
    begin
      k := i;
      break;
    end; 
  end;    
  if k = 0 then
  begin
    writeln('Нет таких чисел.');
    exit;
  end  
  else
  begin
    max := a[k];
    writeln('Первое число, запись которого в шестнадцатеричной системе счисления оканчивается на цифру В: ', DecToHex(a[k]), ' в позиции: ', k);
    for i := k to n do
    begin
      s := DecToHex(a[i]);
      if (s[Length(s)] = 'B') and (a[i] > max) then
        max := a[i];
    end;
  end;
  write('Max: ', DecToHex(max):5, max:5);    
end.

const m = 10;
      d: array[0..15] of char = '0123456789ABCDEF';
var a: array[1..m] of integer;
    max: integer;
    i: byte;
begin
  randomize;
  writeln('Массив: ');
  for i := 1 to m do
    begin
      a[i] := random(1000);
      write(a[i]:4)
    end;
  writeln;
  writeln('Макс. элемент, запись которого в шестнадцатеричной форме оканчивается на B: ');
  max := -1;
  for i := 1 to m do
    if (a[i] mod 16 = $B) and (a[i] > max) then max := a[i];
  if max > -1
    then write(max:4, ' (', d[max div 256], d[max div 16 mod 16], d[max mod 16], 'H)')
    else write('Не найден')
end.