Pascal, помогите.

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

uses crt;var i,n,znak:integer;    a:char;beginclrscr;Writeln('Введите символ:');readln(a);writeln;znak:=0;for i:=1 to 5 dobeginn:=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) thenznak:=znak+1; end;if znak = 0 then writeln('Нет знаков препинание.')else writeln('В следующем 5 символе оказалась ',znak,' знак(ов) препинание');readkey;end.