что не так, почему программа не преобразует строку?

[Ксения1]

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

program lab7;
var S:string; i1,i,m,l:integer;

function firstword(S:string):boolean;
var n:char;
begin
n:=S[1];
if n in ['A'..'Z'] then
firstword:=true;
end;

function poisk(S:string; var m:integer):integer;
var S1:string; l,k:integer;
begin
l:=length(S);
i1:=0;
for i:=1 to l do
begin
if S[i] in ['A'..'Z'] then
begin
S1:=S[i];
i1:=i;
k:=i;
while not (S[k] in [' ',',','.'])and(k<=l) do
begin
S1:=S1+S[k];
k:=k+1;
end;
m:=length(S1);
poisk:=i1;
end;
end;
end;

function del(S:string):string;
begin
for i:=i1 to l-m do
S[i]:=S[i+m];
S[0]:=chr(ord(S[0])-m);
del:=S;
end;

procedure input(var S:string);
begin
write('ââåäèòå ñòðîêó:');
read(S);
end;

procedure output(S:string);
begin
write('Ïðåîáðàçîâàííàÿ ñòðîêà:');
write(S);
end;

var S1:string;
begin
input(S);
if firstword(S) then
write('S',S)
else
if poisk(S1,m)=i1 then
begin
i1:=poisk(S1,m);
S:=Del(S);
S:=S1+' '+S;
end
else
S[1]:=chr(ord(S[1])-26);
write('S',S);
output(S);
end.