Паскаль. дан одномерный массив. вывести на экран числа > =50

Для начала все числа из 2-чной системы переведем а 16-чную. для этого числа справа налево делим на разряды, в каждом разряде 4 цифры и по таблице систем счисления находим  нужные числа в 2-чной системе и переводим в 16-чную. 10001011=8в 10111000=в8 10011011=9в 10110100=в4 (второй разряд получился 0100 - первый 0 нужно убрать. если при делении на разряды не хватает цифр, то слева  дописываются 0, чтоб в разряде было 4 цифры). теперь полученные числа сравниваем с 9а 9а> 8b 9а< b8 9а< 9b 9а< b4 вроде как-то так.

Var     i,j,im,max,s: integer;     a: array[1..7,1..8]of integer; begin for i: =1 to 7 do   begin   for j: =1 to 8 do     begin     a[i,j]: =random(-10,10);     write(a[i,j]: 4);     if a[i,j]> 0 then s: =s+a[i,j];     if (j=1) and (a[i,j]> max) then         begin         max: =a[i,j];         im: =i;         end;     end;   writeln('   s=',s);   s: =0;   end; writeln('a(',im,',1)=',max); end.