шифровка текста

[candalik]

вот программа :
var ish,rez:string;
i:integer;
begin
ish:='кот';
rez:=' ';
for i:=1 to length(ish) do rez[i]:=chr(ord(ish[i])+1);
writeln(rez);
readln
end.

при выводе результата выводятся ТОЛЬКО 2 буквы , независимо от слова ..
подскажите что делать!

[GetMax]

for i:=1 to length(ish) do rez:=rez+chr(ord(ish[i])+1);
writeln(rez);

[candalik]

спасибо ! помогло

[candalik]

спасибо ! помогло