Pascal, помогите.

Запросите у пользователя символ и выведите на экран 5
символов, следующих за ним в таблице американских стандартных кодов обмена
информацией. Проверьте, есть ли среди них знаки препинания.

Uses crt;
var i,n,znak:integer;
    a:char;
begin
clrscr;
Writeln(Введите символ:);
readln(a);
writeln;
znak:=0;
for i:=1 to 5 do
begin
n:=ord(a);
n:=n+i;
writeln(i,) ,chr(n));
if (n = 44) or (n = 45) or (n = 46) or (n = 58) or (n = 59) or (n = 33) or (n = 63) or (n = 34) then
znak:=znak+1;
 end;
if znak = 0 then writeln(Нет знаков препинание.)
else writeln(В следующем 5 символе оказалась ,znak, знак(ов) препинание);
readkey;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.