Работа со строками (pascal)

[ДиM@]

На вход программе подается текст заклинания, состоящего не более, чем из 200 символов, заканчивающийся точкой (другие точки во входных данных отсутствуют). Гарри Поттеру нужно зашифровать его следующим образом. Сначала Гарри определяет количество букв в самом коротком слове, обозначив полученное число через K (словом называется непрерывная последовательность английских букв, слова друга от друга отделяются любыми другими символами, длина слова не превышает 20 символов). Затем он заменяет каждую английскую букву в заклинании на букву, стоящую в английском алфавите на K букв ранее (алфавит считается циклическим, то есть, перед буквой A стоит буква Z), оставив другие символы неизменными. Строчные буквы при этом остаются строчными, а прописные – прописными.
Требуется написать программу для Гарри Поттера, которая будет выводить на экран текст зашифрованного заклинания. Например, если исходный текст был таким:
Zb Ra Ca Dab Ra.
то результат шифровки должен быть следующий:
Xz Py Ay Byz Py.

[Stilet]

Zb Ra Ca Dab Ra.

Нет такого заклинания. Есть avda kedavra, - «что было сказано, должно быть сделано»
А то что тебе нужно это:
http://ru.wikipedia.org/wiki/%D0%A8%...B0%D1%80%D1%8F

Вот и вбей в поиск и получишь примерно таке
http://www.programmersforum.ru/showthread.php?t=3209

[p51x]

Только вчера (кажись) выкладываи код к этой задачи и просили о блок-схеме.... поиск отключили?

[ОДИНОЧЕСТВО В СЕТИ]

const
alfs='abcdefghijklmnopqrstuvwxyz';
alfp='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
als=['a'..'z'];
alp=['A'..'Z'];

var s:string[200];
news:string[200];
i,k:integer;
sub:string;
sm:string;
z:integer;
dl:integer;
begin
Readln(s);
sub:='';
news:='';
i:=1;
k:=200;
while s[i]<>'.' do
begin
 if (s[i] in als) or (s[i] in alp) then
 sub:=sub+s[i]
 else  begin
 if (sub<>'') and (length(sub)<k) then

   k:=length(sub);
   sub:='';
 end;
 inc(i);
end;
 if (sub<>'') and (length(sub)<k) then
  k:=length(sub);
 dl:=i;
 for I := 1 to dl  do
   begin
     if s[i] in als then
       begin
       z:=pos(s[i],alfs);
       news:=news+alfs[((z-k)+26) mod 26];
     end
      else if s[i] in alp then
       begin
       z:=pos(s[i],alfp);
       news:=news+alfp[((z-k)+26) mod 26];
     end
     else news:=news+s[i];
end;
  writeln(s);
  writeln(k);
  writeln(news);
  readln;
end.