Опешите мне пожалуйста что делает каждая из строчек

Const
s2:string[79]='0000 0001 0010 0011 0100 0101 0110 0111 1000 1001 1010 1011 1100 1101 1110 1111';
s3:string[16]='0123456789ABCDEF';
- создали две строки с указанным содержанием

Var
s,rez:string;
i:byte;

- создали две переменных типа строки и еще однй байтовыую

begin
- начали работу

write ('Ведіть двійкове число: ');
- просим юзера ввести число

readln(s);

- читаем чего ввел

if length(s) mod 4<>0 then s:=copy(s2,1,4-length(s) mod 4)+s;

- меряем ее длину и по формулам переводим в 16-ричную систему

rez:='';

for i:=1 to length(s) div 4 do

rez:=rez+s3[(pos(copy(s,i*4-3,4),s2) div 5+1)];

write ('Результат в шіснадцятирічній системі:');

writeln(rez);
- выдаем результат
end.