Закодируйте короткую фразу на русском языке)

{Данная программа переводит любое сочетание символов ASCII в систему счисления заданную пользователем.}

//Pascal ABC.NET v3.0 сборка 1111

var

 a,i,b,r,n,j,bug:integer;

 s,se,slo,slof:string;

procedure preob(var a,b,n:integer; var se:string);

 begin

 repeat

  b:=a mod n;

  a:=a div n;

  str(b,se);

  s+=se;

 until (a<=n-1);

 end;

beginreadln(slo);

readln(n);

for j:=1 to length(slo) do

begin;

a:=ord(slo[j]);

preob(a,b,n,se);

str(a,se);

s+=se;

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

begin;

se:=s[i];

s[i]:=s[length(s)-i+1];

s[length(s)-i+1]:=se[1];

end;

write(s,'-');

slof:=slof+s;

delete(s,1,length(s));

end;

end.

Пример ввода:

Домашняя работа на завтра.

2

Пример вывода:

11000100-11101110-11101100-11100000-11111000-11101101-11111111-11111111-100000-11110000-11100000-11100001-11101110-11110010-11100000-100000-11101101-11100000-100000-11100111-11100000-11100010-11110010-11110000-11100000-101110-

{Таким образом, фразу "Домашняя работа на завтра." можно закодировать как "11000100-11101110-11101100-11100000-11111000-11101101-11111111-11111111-100000-11110000-11100000-11100001-11101110-11110010-11100000-100000-11101101-11100000-100000-11100111-11100000-11100010-11110010-11110000-11100000-101110-".}