строки паскаль

[Ксения1]

подскажите что не так в программе.

Дана строка - предложение. Проверить, начинается ли первое слово с прописной буквы, если нет, то найти в строке такое слово и перенести его в начало. Если слова, начинающиеся с прописной буквы отсутствуют, исправить первый строчный символ на прописной.
текст программы:
program lab7;
var S:string;

procedure capital(var S,S1:string);
var n:char; i,l,i1,k,m:integer;
begin
n:=S[1];
if n in ['A'..'Z'] then
Write(S)
else
begin
l:=length(S);
for i:=1 to l do
begin
if S in ['A'..'Z'] then
S1:=S;
i1:=i;
for k:=i to l do
begin
while not (S[k] in [' ',',','.']) do
S1:=S1+S[k];
k:=k+1;
m:=length(S1);
S1:=S1+' ';
Delete(S1,i1,m);
Insert(S1,S,i1);
Write('S',S);
end
else begin
S[1]:=UpCase(S[1]);
write('S',S);
end;
end;
end;
end;

begin
write('vvedite predlojenie S:');
readln(S);
capital(S);
writeln;
writeln('S',S);
readln;
end.