ПОМОГИТЕ ПОЖАЛУЙСТА!!!Паскаль АБС1.Задаётся число n. Потом вводятся n знаков В ОДНОЙ

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

var

 k,i: integer;

 ch: char;

begin

 i:=0; k:=0;

 while chlt;gt;'*' do

 begin

   inc(i);

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

   readln(ch);

   if ord(ch) mod 2lt;gt;0 then inc(k);

 end;

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

 readln;

end.

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 2lt;gt;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.