Посчитать количество предложений в файле (тема: строковый тип данных). Т. Е…

Не работает с многоточием, если что.var f: text; c: char; k: integer; begink: =0; assign (f,'input'); reset (f); while eof (f)=false doif eoln (f) then readln (f) elsebeginread (f,c); if (c='.') or (c='! ') or (c='? ') then k: =k+1; end; if not (c='.') or (c='! ') or (c='? ') then k: =k+1; close (f); write (k) end.