ПАСКАЛЬС клавиатуры вводится строчка, состоящая из слов на российском языке, отделённых

Я бы сделал но мне лень искать

я бы дал 15 баллов но мне лень давать

через 20 минут может быть буду делать

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 lt;= l do  begin    while (s[i] lt;gt; ' ') and (i lt;= l) do    begin      a[j]:=a[j] + s[i];      i:= i + 1;      if (i gt; l) then break;    end;    j:= j + 1;    i:= i + 1;  end;    i:= 1;  while (a[i] lt;gt; '') do  begin    g:=a[i];    g[1]:= (Upcase(g[1]));    s_2:= s_2 + g + ' ';    i:= i + 1;    g:='';  end;  writeln(s_2);End.