Написать программу на...

Написать программу на паскале в которой введенное предложение будет разделяться на отдельные слова. Вводи A. разделяем предложения на слова присваиваяих к какой либо переменной

 

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, pat) = 0 then
a[c + 1] := a[c + 1] + p
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);
end;
readln;
end.