есть программа шифрации(симетричный алгоритм), надо написать программу дешифровки.

program p123;
uses crt;
Var
k: string; z1: file of char; z2: file of integer; a1: char; n, i: integer;
begin
clrscr;
write ('Введите секретный ключ:'); readln (k);
assign (z1, 'C:\...\**.txt'); reset (z1);
assign (z2, 'C:\...\*.txt'); rewrite(z2);
for i:=0 to filesize (f1)-1 do
begin
seek (z1,i);
read(z1,a1);
n:=pos(s1,k);
if n=-1 thew write ln ('неподходящий ключ');
seek (z2,i);
write (z2,n)
end
close (z1); close (z2);
end.

собственно надо поменять только тело цикла.

ПС: это паскаль

100 баков и программа считай у тебя в кармане!
P.S. А ты че безвозмездно что ли хотел? Тогда надо было хотя бы девушкой прикинуться.