Delphi заготовки

Program Lr;
uses Crt;
const rz=[' ',',','.',';',':','?','!'];
var s,s1:string;
a:array[1..100] of string[20];
buf:string[20];
i,k,p:byte;
begin
clrscr;
writeln('Введите строку из слов, разделенных знаками препинания:');
readln(s);
for i:=1 to length(s) do
if s[i] in rz then s[i]:=',';
while pos(',,',s)>0 do delete(s,pos(',,',s),1);
if s[length(s)]=',' then delete(s,length(s),1);
k:=1;
for i:=1 to length(s) do
if s[i]=',' then k:=k+1
else a[k]:=a[k]+s[i];
for i:=k downto 1 do
write(a[i],' ');
readln
end.
http://netsoftware.ucoz.ru/ex2.jpg

Тут могут писать все пользователи