Программа для шифрования и дешифрования путем замены символов

{Суть программы в том, чтобы я допустим писал в строчку слово или
предложение, а она мне переводит это в другие символы, которые будут
вбиты в код.
Например: Я пишу - Привет, а программа мне переводит это допустим в 791837.}
var
  s:string;
 
Function IntToStr (I : Longint) : String;
var
  S : String;
begin
  Str (I,S);
  IntToStr:=S;
end;
 
Function StrToInt(s:string):integer;
var
  code,i:integer;
begin
  val(s,i,code);
  if code=0 then
    StrToInt:=i;
end;
 
function shifr(s:string):string;
var
  sh,st:string;
  i,code:integer;
begin
  st:=''; sh:='';
  for i:=1 to length(s) do
    begin
      code:=ord(s[i]);
      sh:=IntToStr(code);
      if Length(sh)<3 then
        sh:='0'+sh;
      st:=st+sh;
    end;
  shifr:=st;
end;
 
function DeShifr(s:string):string;
var
  sh,st:string;
  i:integer;
begin
  i:=1; st:='';
  while i<=length(s) do
    begin
      sh:=copy(s,i,3);
      st:=st+sh;
      inc(i,3);
    end;
  deshifr:=st;
end;
 
begin
  write('Введите исходную строку: ');  readln(s);
  writeln(shifr(s));
  Writeln(deshifr(s));
  readln;
end.