Заменить первую строчную букву на заглавную в словах, имеющих выбранную длину - Turbo Pascal

Формулировка задачи:

Заменить первую строчную букву на заглавную в словах, имеющих выбранную длину. Как упростить код?
Program lab;
var
i,l, m:integer;
s:string;
begin
readln(s);
l:=ord(s[1]);
l:=l-32;
s[1]:=chr(l);
l:=0;
if length(s) = 5 then
begin
for i:=0 to length(s) do
begin
if s[i]=' ' then 
begin
l:=ord(s[i+1]);
l:=l-32;
s[i+1]:=chr(l);
end;
end;
end;
writeln(s);
readln;
end.

Код к задаче: «Заменить первую строчную букву на заглавную в словах, имеющих выбранную длину - Turbo Pascal»

textual
Program lab;
var
  i, p : integer;
  s : string;
begin
   readln(s);
   p := 1;
   s := s + ' ';
   for i := 1 to length(s) do
   begin
     if s[i] = ' ' then
     begin
       if i - p = 5 then s[p] := chr(ord(s[p]) - 32);
       p := i + 1;
     end;
   end;
   writeln(s);
   readln;
end.

9   голосов, оценка 4.222 из 5


СОХРАНИТЬ ССЫЛКУ