Решить в паскале (абв - всё в одной программе! ) "в символьном массивеиз 6 элементов, заданных с клавиатуры: а) поменять все маленькие латинские буквы на большие; б) найти кол-во запятых; в) поменять все маленькие буквы на большие." ! жду верного решения : ) заранее

Var l,k: char; m,s: string; n,i,a: integer; begin read(s); l: =s[1]; if ((ord(l)> 223) and (ord(l)< 256))or((ord(l)> 96) and (ord(l)< 122)) then begin a: =ord(l)-32; if a< > 0 then begin k: =chr(a); if k< > '0' then m: =m+copy(k,1,1) end; end   else begin if   ord(l)=44 then n: =n+1; m: =m+l; end; l: =s[2]; if ((ord(l)> 223) and (ord(l)< 256))or((ord(l)> 96) and (ord(l)< 122)) then begin a: =ord(l)-32; if a< > 0 then begin k: =chr(a); if k< > '0' then m: =m+copy(k,1,1) end; end   else begin if   ord(l)=44 then n: =n+1; m: =m+l; end; l: =s[3]; if ((ord(l)> 223) and (ord(l)< 256))or((ord(l)> 96) and (ord(l)< 122)) then begin a: =ord(l)-32; if a< > 0 then begin k: =chr(a); if k< > '0' then m: =m+copy(k,1,1) end; end   else begin if   ord(l)=44 then n: =n+1; m: =m+l; end; l: =s[4]; if ((ord(l)> 223) and (ord(l)< 256))or((ord(l)> 96) and (ord(l)< 122)) then begin a: =ord(l)-32; if a< > 0 then begin k: =chr(a); if k< > '0' then m: =m+copy(k,1,1) end; end   else begin if   ord(l)=44 then n: =n+1; m: =m+l; end; l: =s[5]; if ((ord(l)> 223) and (ord(l)< 256))or((ord(l)> 96) and (ord(l)< 122)) then  begin a: =ord(l)-32; if a< > 0 then begin k: =chr(a); if k< > '0' then m: =m+copy(k,1,1) end; end   else begin if   ord(l)=44 then n: =n+1; m: =m+l; end; l: =s[6]; if ((ord(l)> 223) and (ord(l)< 256))or((ord(l)> 96) and (ord(l)< 122)) then begin a: =ord(l)-32; if a< > 0 then begin k: =chr(a); if k< > '0' then m: =m+copy(k,1,1) end; end   else begin if   ord(l)=44 then n: =n+1; m: =m+l; end; writeln(m); writeln(n); end.

Видео редактор он фиолетового цвета 2020.

Movie maker.

Vlog Editor for Vlogger & Video и т.д .

Видео редактор-видео и фото редактирования.

Power Video-Music Video Editor for YouTube.

Эти приложения без платного контента.