Помогите решить задачи в PASCAL

[HECKLY]

1 Дан двумерный массив размерности NxM. Определить количество элементов, значения которых меньше заданного числа А на единицу. Заменить элементы с четными индексами максимального элемента.
2 Дана строка. Проверить одинаковое ли число букв А, Б и В в нем.
3 Отредактировать заданное предложение, удаляя из него все слова с чётными номерами.

[Chudo4258]

Уточните задачу:

1 Дан двумерный массив размерности NxM. Определить количество элементов, значения которых меньше заданного числа А на единицу. Заменить элементы с четными индексами максимального элемента.

Как-то условие совсем не понятно, что на что надо заменить.

2 Дана строка. Проверить одинаковое ли число букв А, Б и В в нем.

program Project2;
var S:string;
    i,a,b,v:integer;
begin
readln(S);
for i:=1 to length(S) do
 begin
  if S[i]='А' then inc(a);
  if S[i]='Б' then inc(b);
  if S[i]='В' then inc(v);
 end;
writeln((a=b)and(b=v));
readln;
end.

[HECKLY]

Спасибо большое!!

[HECKLY]

СОРРИ!
1 Дан двумерный массив размерности NxM. Определить количество элементов, значения которых меньше заданного числа А на единицу. Заменить элементы с четными индексами значением максимального элемента.

[Chudo4258]

program Project2;
var B: array [1..100,1..100]of integer;
    i,j,n,m,A,kol, max:integer;
begin
write('n= ');readln(n);
write('m= ');readln(m);
for i:=1 to n do
begin
 for j:=1 to m do
  begin
  B[i,j]:=random(10);
  write(B[i,j]:3);
  end;
 writeln;
end;
writeln;
write('A= '); readln(A);
max:=B[1,1];
kol:=0;
for i:=1 to n do
 for j:=1 to m do
  begin
   if B[i,j]-1=A then inc(kol);
   if B[i,j]>max then max:=B[i,j];
  end;
writeln('kol-vo el. < na 1: ', kol);
writeln('max= ',max);
for i:=1 to n do
begin
 for j:=1 to m do
  begin
  if (i mod 2 = 0) and (j mod 2 = 0) then B[i,j]:=max;
  write(B[i,j]:3);
  end;
 writeln;
end;
readln
end.

[HECKLY]

Спасибо огромнейшее!!!!!!!!!