Кто может записать решение на алгоритмическом языке

Const dlin = 100;
var b:array[1..dlin,1..2] of integer;
      i,j,x:integer;
begin
writeln('Исходный массив:');
for i:=1 to dlin do
 begin
  b[i,1]:=random(800)+100;
  write(b[i,1],' ');
  b[i,2]:=b[i,1] mod 10 + b[i,1] div 100 + b[i,1] div 10 mod 10;
 end;
writeln;

for i:=1 to dlin-1 do
  for j:=dlin-1 downto i do
     if b[j,2]>b[j+1,2] then
     begin
      x:=b[j,2]; b[j,2]:=b[j+1,2]; b[j+1,2]:=x;
      x:=b[j,1]; b[j,1]:=b[j+1,1]; b[j+1,1]:=x;
     end;

writeln('Отсортированный массив:');
for i:=1 to dlin do
   write(b[i,1],' ');

end.

var
  i, k, N: word;               
  A, B: array[1..10000] of integer;

begin 
  write(' N = ');
  readln(N);
  writeln(' Введите массив из ', N, ' чисел: ');
  for i := 1 to N do
  begin
    read(a[i]); //Вводим i-й элемент массива.
    if a[i] mod 2 = 0 then //Если он четный,  
    begin
      inc(K); //то увеличиваем K на 1.
      b[K] := a[i] //Очередной элемент нового массива.  
    end
  end;
  writeln('Четные числа обратном порядке: ');
 { Выводим четные элементы массива в обратном порядке: }
  for i := K downto 1 do
    write(' ', b[i]);
  write(' K = ', K)
end.