Основные проблемы доступа информации в организациях(можете скинуть побольше информации так как нужно разместить на два листа а4 буду признателен)Также можете написать проблемы доступа к какой то определенной организации

1)
var
  n, i, c, sum, sum2, c2: integer;
   a: array of integer;
 begin
  sum := 0;
   sum2 := 0;
  c2 := 0;
  c := 0;
   readln(n);
   setlength(a, n);
   for i := 0 to n - 1 do
   begin
    read(a[i]);
     if(a[i] > 0) and (a[i] > 6) then
     begin
      sum := sum + a[i];
       c := c + 1;
     end;
     if(a[i] mod 2 = 0) and (a[i] > 6) then
     begin
      sum2 := sum2 + a[i];
      c2 := c2 + 1;
     end;
   end;
   writeln(sum / c);
   write(sum2 / c2);
 end.
2)
var
  n, i, max, im: integer;
  a: array of integer;
 begin
  im := 1;
  readln(n);
  setlength(a, n);
  for i := 0 to n - 1 do
  begin
    read(a[i]); if(i = 1) then max := a[0];
    if(a[i] > max) then
    begin
     max := a[i];
     im := i + 1;
    end;
  end;
  write((max * 2) / im);
end.

1 задача
program proga;
var st,st2:string;
i:Integer;
begin
writeln('Введите число');
readln(st);
for i:=1 to length(st) do begin
st2:=st[i];
write(st2,' ');
end;
end.
2 задача
program proga2;
var st,st2:string;
i,a:Integer;
begin
writeln('Введите возраст');
readln(a);
if a>120 then
writeln('Неверные данные');
if a=1 then
writeln(a,' год');
if (a>1) and (a<5) then
writeln(a,' года');
if((a mod 10 = 1) and (a div 10 <> 0 or 11 )) then writeln(a,' год');
if (a>=5) and (a mod 10 <> 2 or 3 or 4)and (a div 10 <> 10) then
writeln(a,' лет');
if (a<=5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года ');
if(a>104) and (a<110)then writeln(a,' лет');
end.