Помогите пожалуйсто решить задачку в Паскале

[agunek]

Проверить, верно ли, что после каждого знака препинания «.», «,», «;», «:» в тексте стоит пробел. Если нет, то указать номер позиции такого знака препинания.

[thedrill]

проверь вот этот код, должен работать я не проверял, паскаля не было))

uses crt;
var s:string;
     i:integer;

begin clrscr;
write("Slovo:");
readln(s);

for i:=0 to length(s)-1 do
if s[i] in [':',';',',','.'] then
if (s[i+1]<>' ')
writeln(i);

readln;
end.

[LeBron]

thedrill, писать лучше не "слово", а, к примеру, "текст". А пряморукая версия Вашего кода -

uses crt;
var s:string;
     i:integer;
begin clrscr;
write('Slovo:');
readln(s);
for i:=1 to length(s)-1 do
if s[i] in [':',';',',','.'] then
if (s[i+1]<>' ') then
writeln(i);
readln;
end.

[agunek]

спасибо обльшое ..вроде все работает..а попроще это записать можно как-нибудь?! а то в школе не поверят , что сам решил((