Паскаль с клавиатуры вводится строка, состоящая из слов на языке, отделённых друг от друга одним пробелом. все буквы прописные. вывести эту строку на экран, заменив в каждом слове первую букву на заглавную.

Program z6;  Var a: array [1..10] of string; i,j,l:integer; s,g,s_2:string;Begin  write('Введите строку - '); readln(s);  l:=s.Length;  i:= 1;  j:= 1;    while i <= l do  begin    while (s[i] <> ' ') and (i <= l) do    begin      a[j]:=a[j] + s[i];      i:= i + 1;      if (i > l) then break;    end;    j:= j + 1;    i:= i + 1;  end;    i:= 1;  while (a[i] <> '') do  begin    g:=a[i];    g[1]:= (Upcase(g[1]));    s_2:= s_2 + g + ' ';    i:= i + 1;    g:='';  end;  writeln(s_2);End.