индекс находится вне границ массива (паскаль)

[max75025]

задание:зашифровать слово методом сдвига, но у меня не получается, при попытке зашифровать выдает ошибку, что не правильно?

program merlin;
uses crt;
var
str,res:String;
n,k,k1,i,g:Integer;
procedure sh(str:String; n,k:Integer; var otv:String );{сдесь мы шифруем наше слово по паролю}
	var
	i,ch,z:Integer;
	s:Char;
begin
	for i:=1 to n do
	begin
		ch:=ord(str[i]);
		z:=ch+k;
		s:=chr(z);
		otv[i]:=s;
	end;
	writeln;
end;
procedure desh(n,k1:integer; r:String);{сдесь расшифровываем наше слово по паролю}
	var
	z,x,i:integer;
	b:String;
	begin
	for i:=1 to n do
	begin
		x:=ord(r[i]);
		z:=x-k1;
		b:=chr(z);
		write (z);
	end;
	end;
begin
	writeln('vvedite vashe slovo');
	read(str);
	n:=length(str);
	writeln('vvedite parol 1..9');
	read(k);
	sh(str,n,k,res);
	writeln(res);
	writeln('hotite rashifrovat? 1- yes or 2-no');
	read(g);
	if g=1 then
	begin
		writeln('vvedite parol 1..9');
		read(k1); 
		desh (n,k1,res)
	end
	else  
	writeln('jmak...');
repeat until KeyPressed;
end.

[newerow1989]

Я нашел:

procedure sh(str:String; n,k:Integer; var otv:String );{сдесь мы шифруем наше слово по паролю}

otv[i]:=s;

По умолчанию otv = '', а цикл начинается с 1!

А что означает в процедуре desh? Что оно дает?

b:=chr(z);
write (z);

[Slym]

SetLength(otv,Length(str));

[max75025]

Сообщение от Slym

SetLength(otv,Length(str));

можете более подробно пояснить?

[max75025]

Сообщение от newerow1989

Я нашел:


По умолчанию otv = '', а цикл начинается с 1!

А что означает в процедуре desh? Что оно дает?

b:=chr(z);
write (z);

эта процедура должна производить обратный эффект

[newerow1989]

То, что я привел - это действительно ошибки. Их нужно исправить! А выражение

b:=chr(z);
write (z);

не имеет смысла
Смотри исправления:

procedure sh(str:String; n,k:Integer; var otv:String );{сдесь мы шифруем наше слово по паролю}
	var
	i,ch,z:Integer;
	s:Char;
begin
           SetLength(otv,n);
	for i:=1 to n do
	begin
		ch:=ord(str[i]);
		z:=ch+k;
		s:=chr(z);
		otv[i]:=s;
	end;
	writeln;
end;
procedure desh(n,k1:integer; r:String);{сдесь расшифровываем наше слово по паролю}
	var
	z,x,i:integer;
	b:String;
	begin
	for i:=1 to n do
	begin
		x:=ord(r[i]);
		z:=x-k1;
		b:=chr(z);
		write (b);
	end;
	end;

При таком раскладе у меня заработало