Закодируйте слово "КИЛОБАЙТ" символьным, числовым и графическим способом кодирования срочно Срочно!! Пожалуйста!

решение на шифрование Turbo Pascal 7.0 (+ графически на Pascal ABC, смотри ниже)

uses crt;
var i, c, code: integer;
stroka, stroka1, stroka2, st: string;
begin
clrscr;
stroka:= 'КИЛОБАЙТ';
stroka1:='';
stroka2:='';
writeln ( ' Мое слово =',stroka);
writeln;
for i:=1 to length(stroka) do
begin
stroka1:=stroka1+chr(ord (stroka[i])+10);
{ключ обратной расшифровки}
stroka2:=stroka2+chr(ord (stroka1[i])-10);
end;
writeln (stroka1);
writeln (stroka2);
stroka1:='';
stroka2:='';
writeln;
writeln (' Выполняем шифрование');
{ числовая кодировка по порядковому номеру в ASCII коде}
for i:=1 to length(stroka) do
begin
{c:=ord (stroka[i]);
write (c:4);}
str (ord (stroka[i]), st);
if ord(stroka[i]) < 100 then stroka1:=stroka1+'0'+st
else stroka1:=stroka1+st;
end;
{ключ обратной расшифровки}
st:='';
for i:=1 to length (stroka1) div 3 do
begin
st:=stroka1[3*i-2]+stroka1[3*i-1]+stroka1[3*i];
val (st, c, code);
{write (st);}
stroka2:=stroka2+chr(c);
end;
writeln;
writeln (stroka1);
writeln (stroka2);
readln;
end.

Программа графического шифрования на Pascal ABC

uses graphABC;
var i, j, k, сolor: integer;
stroka, stroka1, stroka2: string;
begin
{Русскую кодировку не поддерживает Pascal ABC, смещение символов в таблице ASCII}
{вводить только АНГЛИЙСКИЕ, например, kilobyte, kilogramm, zebra, molotok}
readln (stroka);
//stroka:='AAAaaaZZZzzzxcXC';{только английские буквы}
for i:=1 to 8 do
begin
for j:=1 to length(stroka) do
write ('*');
writeln;
end;
setwindowwidth(500);
setwindowheight(500);
setpenwidth (1); {толщина}
setfontcolor(clBlack);
for i:=1 to length(stroka) do
begin
line (i*5, 0, i*5, ord(stroka[i])) ;
end;
k:=0;

stroka2:='';
{ключ обратной расшифровки}
for i:=1 to length(stroka) do
begin
for j:=1 to 150 do
if GetPixel (i*5, j) = Color.FromArgb(0, 0, 0) then k:=k+1;
stroka2:=stroka2+chr (1+k);
k:=0;
end;
textout (50,200,stroka2);
end.