Написать программу, которая выводит шестнадцатеричное представление введенного с клавиатуры двоичного числа. для delphi нужен код программы от начала до конца

{$APPTYPE CONSOLE}
uses
  SysUtils;

Var
   C:string;
   i:integer;
begin
Read(C);
if Length(C) mod 4 <> 0 then
   For i:= 1 to 4-Length(C) mod 4 do
       C:='0'+C;
For i:= 1 to Length(C) div 4 do
    Case StrToInt(C[4*i-3]+C[4*i-2]+C[4*i-1]+C[4*i]) of
    0000:Write(0);
    0001:Write(1);
    0010:Write(2);
    0011:Write(3);
    0100:Write(4);
    0101:Write(5);
    0110:Write(6);
    0111:Write(7);
    1000:Write(8);
    1001:Write(9);
    1010:Write('A');
    1011:Write('B');
    1100:Write('C');
    1101:Write('D');
    1110:Write('E');
    1111:Write('F');
    End;
ReadLn;
end.

Исполнитель Калькулятор.1.Степень(число,степень)2.Корень(число,степень)3.Сложение(число,число2)4.Умножение(число,число2)5.Деление(число,число2)6.Вычитание(число,число2)7.Вывод(алг)-выводит результат алгоритма8.Если(условие)9.скобка1 скобка2-для содержания операторов в условииначало конец - для содержания всего алгоритма10.Ошибка - сообщает об ошибке и прекращает выполнение алгоритма11.Ввод(x)-считывает числа, введённые пользователем
Пример: Найти квадратный корень из числа 9
НачалоКорень(9,2)Вывод(алг)Конец
Пример: Разделить 7 на x
НачалоВвод(x);Если(x=0)скобка1Ошибкаскобка2Деление(7,x)Вывод(алг)Конец
Пример: Возвести х в степень у
НачалоВвод(х,у)Степень(х,у)Вывод(алг)Конец
Калькулятор находит сумму, разность, произведение, частное, возводит в степень или извлекает корень согласно введённым пользователем данным, либо заданным по умолчанию.

Исполнитель Калькулятор.
1.Степень(число,степень)
2.Корень(число,степень)
3.Сложение(число,число2)
4.Умножение(число,число2)
5.Деление(число,число2)
6.Вычитание(число,число2)
7.Вывод(алг)-выводит результат алгоритма
8.Если(условие)
9.скобка1 скобка2-для содержания операторов в условии
начало конец - для содержания всего алгоритма
10.Ошибка - сообщает об ошибке и прекращает выполнение алгоритма
11.Ввод(x)-считывает числа, введённые пользователем

Пример: Найти квадратный корень из числа 9

Начало
Корень(9,2)
Вывод(алг)
Конец

Пример: Разделить 7 на x

Начало
Ввод(x);
Если(x=0)
скобка1
Ошибка
скобка2
Деление(7,x)
Вывод(алг)
Конец

Пример: Возвести х в степень у

Начало
Ввод(х,у)
Степень(х,у)
Вывод(алг)
Конец

Калькулятор находит сумму, разность, произведение, частное, возводит в степень или извлекает корень согласно введённым пользователем данным, либо заданным по умолчанию.