ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Паскаль АБС
1.Задаётся число n. Затем вводятся n символов В ОДНОЙ СТРОКЕ. Вместо каждого символа с нечетным кодом ASCII вывести предшествующий ему символ, а вместо каждого символа с четным ASCII кодом символ, следующий за ним.

var N,i:integer;

k:char;

s:string;

BEGIN

readln(N);

s:='';

for i:=1 to N do begin

readln(k);

if (ord(k) mod 2<>0) then

s:=s+chr(ord(k)-1) else

s:=s+chr(ord(k)+1);

end;

writeln();

for i:=1 to N do

writeln(s[i]);

end.

Братан конечно у меня могут быть ошибки но получается так:

var

 k,i: integer;

 ch: char;

begin

 i:=0; k:=0;

 while ch<>'*' do

 begin

   inc(i);

   write('Введите ',i,'-й символ:');

   readln(ch);

   if ord(ch) mod 2<>0 then inc(k);

 end;

 writeln('В последовательности ',k,' символов в четным кодом');

 readln;

end.