Написать программу на паскале в которой введенное предложение будет разделяться…

const pat=': , .!? '; var p: string; a: array [1… 100] of string; c, i: integer; begin readln (p); //предложение a[c+1]: ='; for i: =1 to length (p) do begin if pos (p[i], pat)=0 then a[c+1]: =a[c+1]+p[i] else begin if length (a[c+1]) >0 then inc (c); a[c+1]: ='; end; end; for i: =1 to c do begin writeln (a[i]); end; readln; end.