Помогите решить задачи по программированию!!!

Первую я бы написал так.. .

uses crt;
const nmax=20;
type mas=array[1..nmax] of integer;{1 строка матрицы}
matr=array[1..nmax] of mas;{матрица=массив строк}
function F(x:byte;a:mas;n:byte):boolean;
var i,j:byte;
b:boolean;
begin
b:=true;
for j:=1 to x-1 do{проверяем слева}
if a[j]>=a[x] then b:=false;
for j:=x+1 to n do{проверяем справа}
if a[j]<=a[x] then b:=false;
F:=b;
end;
var a:matr;
n,m,i,j:byte;
k:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица: ');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[j]:=random(20);
write(a[j]:3);
end;
writeln;
end;
writeln;
k:=0;
for i:=1 to n do
for j:=2 to m-1 do
if F(j,a,m) then k:=k+1;{считаем элементы}
write('Количество особых элементов=',k);
readln
end.

Ну так в чем проблема-то? Все ведь сказано.

for i:=1 to n do
for j:=1 to m do Inc(A[C[i,j]]);

а теперь

k := 0; {счетчик количества различных символов}
for Ch:=#0 to #255 do
if A[Ch] > 0 then Inc(k);

Все, в k результат.

Во второй, За один проход массива ищется индекс минимального элемента и среднее арифметическое элементов, а затем выполняется замена значения элемента с найденным индексом. Если их будет несколько, то условие заменить последний выполнится автоматически, если при поиске индекса проверять элемент на "меньше или равно".