Что это фрагмент какое действие

Существуют два перевода
1.
универсальный, который годится для перевода из любой системы счисления в любую. Число из исходной системы надо перевести в основную, десятичную систему
754_8 = 7*8^2+5*8^1+4*8^0 = 492_10
и затем перевести в целевую систему счисления
492/16=30 остаток от деления 12 - шестнадцатеричная цифра С
30/16=1 остаток от деления 14  - шестнадцатеричная цифра E
1/16=0 остаток от деления 1 - шестнадцатеричная цифра 1
754_8 = 492_10 = 1EC_16
- и второй попроще, основанный на том, что и восьмеричная и двоичная системы - это системы с основанием, равным степени двойки, и перевод из них в двоичную и обратно очень прост
Каждая восьмеричная цифра соответствует трём двоичным, каждая шестнадцатеричная цифра - четырём двоичным, и преобразования выполняются без арифметических действий, простой перегруппировкой бит из групп по 3 в группы по 4
754_8 = 111 101 100_2 = 1 1110 1100_2 = 1EC_16

const

 nn = 25; // максимум слов

var

 a: array[1..nn] of string[20];

 

procedure Parser(s: string; var k: integer);

var  

 i,n: integer;

 w: string;

begin  

 w := '';

 k := 0;

 n := length(s);

 for i := 1 to n do

   if s[i] <> ' ' then w := w + s[i]

   else

     if length(w) > 0 then

     begin

       k := k + 1;

       a[k] := w;

       w := '';

     end;

 if length(w) > 0 then

 begin

   k := k + 1;

   a[k] := w;

 end;

end;

 

var

 s: string[254];

 i, k: integer;

 

begin

 Readln(s);

 Parser(s, k);

 for i := 1 to k do

   if Pos('ар', a[i]) > 0 then

     write(a[i], ' ');

end.

Программа уровня Турбо Паскаль