Задание на шифровку цифр по паскалю не умею писать проги...

[Denisokin]

В средние века в торговле применялась и шифровка цифр. В качестве ключа необходимо выбрать слово длиной в 10 символов, в котором буквы не повторяются. Каждая буква нумеруется от 0 до 9. При шифровке какого-либо числа все цифры в нем заменяются на буквы из ключевого слова, соответствующие данной цифре.
Например:
Открытый текст
Встречайте 25.06.07
Ключ
Р Е С П У Б Л И К А
0 1 2 3 4 5 6 7 8 9
Шифр
Встречайте СБ РЛ РИ

[Mad_Cat]

var s:string;
buf:string;
p,i:byte;
dat:string;
begin
s:='РЕСПУБЛИКА';
dat:='Встречайте 25.06.07';
buf:='';
for i:=1 to length(dat) do
begin
if dat[i]in ['0'..'9'] then
begin
p:=ord(dat[i])-ord('0');
buf:=buf+s[p+1];
end
else  if dat[i]='.' then buf:=buf+' '
else buf:=buf+dat[i];
end;
writeln(buf);
end.

[Denisokin]

чето она не работает((...

[Poma][a]

чето она не работает((...

А вот представьте : Вы приходите покупать машину (точнее Вам её дарят, а Вы за это даже не сказали спасибо!). Вот Вам её подарили. Дали ключи. Сказали : "В добрый путь!". Вы уходите на своих двоих, а потом возвращаетесь и говорите : "А она чето не работает!" И что? Мы должны проводить диагностику? ТОЛЬКО за доп. плату! Кстати, совет : возможно она не работает, потому что Вы закрыли глаза и не смотрите в окно