Дана строка. преобразовать в ней все прописные латинские буквы в строчныеpascal)

Var a: string; i: integer; begin read(a); for i: =1 to length(a) do begin fif a[i] in ['a'..'z'] then a[i]: =upcase(a[i]) end; writeln(a); end.

Var   a        : array[1..100,1..100] of integer;   b        : array[1..100] of integer;   m,n,s,i,j : integer; begin   readln(m,n);   for i: =1 to m do   begin       s: =0;       for j: =1 to n do       begin           a[i,j]: =random(100);           write(a[i,j]: 4);           if a[i,j] mod 3 = 0 then s: =s+a[i,j];       end;       if s=0 then b[i]: =-10 else b[i]: =s;       writeln('                    ',b[i]);   end; end.

Program n;   var          m: array[1..12] of integer;           i,k: integer; begin randomize; k: =0; for i: =1 to 12 do begin     m[i]: =random(41)+150;   write(m[i],' ');       if   m[i]> 180 then k: =k+1;   end;   writeln; if k> 0 then writeln('такой ученик есть) else writeln('такого ученика нет'); end.program n; var        m: array[1..12] of integer;         i,k: integer; beginrandomize; k: =0; for i: =1 to 12 do begin    m[i]: =random(41)+150;   write(m[i],' ');     if   m[i]< 160 then k: =k+1;   end;   writeln; if k> 0 then writeln(k,'   ученик(ов/а) имеют рост меньше 160') else writeln('учеников, рост которых меньше 160, нет'); end.