Які послуги можуть надавати канали новини​

Const n=5;
var 
a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
i,j,max,min,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
   a[i,j]:=random(21);
   write(a[i,j]:4);
  end;
  writeln;
 end;
max:=a[1,n];
for i:=2 to n do
  if a[i,n-i+1]>max then max:=a[i,n-i+1];
writeln('1. max = ',max);
for i:=1 to n do
 begin
 min:=a[i,1];
 for j:=2 to n do
  if a[i,j]<min then min:=a[i,j];
 b[i]:=min;
 end;
s:=0;
writeln('2. Массив B');
for i:=1 to n do 
 begin
 write(b[i]:4);
 s:=s+b[i];
 end;
writeln;
writeln('3. среднее = ',s/n);
for i:=1 to n do 
 if b[i]>s/n then write(b[i]:4);
writeln;
end.

Пример:
Исходный массив:
  10  19  15  17  10
  12  12  10   1   5
  17   8   8  14  15
  12  11   8   0  13
   2   2   4  10   6
1. max = 11
2. Массив B
  10   1   8   0   2
3. среднее = 4.2
  10   8

//1
begin
var ch:=readchar ('Введите символ: ');
if ch in ['A'..'z', 'А'..'я'] then
begin
if upcase(ch)=ch then write ('Прописная ') else write ('Строчная ');
if ch in ['A'..'z'] then write ('английская ') else write ('русская ');
write ('буква');
end
else if ch in ['0'..'9'] then write ('Цифра') else write ('Символ');
end.

//2
begin
var x:=readreal ('Ведите координаты точки: ');
var y:=readreal;
if (x=0) and (y=0) then write ('Точка лежит на начале координат') else
if x=0 then writeln ('Точка лежит на оси ординат') else
if y=0 then writeln ('Точка лежит на оси абсцисс') else
if x>0 then
if y>0 then write (1) else write (4)
else if y>0 then write (2) else write (3);
end.