Задан текст длиной не более 255 символов. Составить программу шифрования текста по след. правилу: каждую букву в тексте заменить ее 3-ех значным кодом, если код буквы в таблице ASCII, содержит меньше 3-ех цифр, недостающие позиции заменить нулями. Цифры,знаки пунктуации оставить на своих местах — Pascal(Паскаль)

procedure Remake(s:string);
var a,i:integer;
begin
 for i:=1 to length(s) do begin
  a:=ord(s[i]);
  if ((a>64) and (a<91)) or ((a>96) and (a<123)) or ((a>127) and (a<176)) or ((a>223) and (a<239)) then
   write(a div 100,a div 10 mod 10, a div 10,' ') else write(s[i],' ');
 end;
end;
 
var
 s:string;
 
begin
 readln(s);
 remake(s);
 readln;
end.

uses crt;
const bk=['A'..'Z','a'..'z','А'..'п','р'..'ё'];
procedure Zamena(var s:string);
var i,a:byte;
    s1:string;
begin
for i:=length(s) downto 1 do
if s[i] in bk then
 begin
  a:=ord(s[i]);
  str(a,s1);
  if a<100 then s1:='0'+s1;
  insert(s1,s,i+1);
  delete(s,i,1);
 end;
end;
var st:string;
begin
clrscr;
writeln('Введите строку:');
readln(st);
writeln('Замена:');
Zamena(st);
write(st);
readln
end.