Сформировать целочисленную матрицу

Помогите решить пару задачек на Pascal///
Двумерные массивы:
1) Сформировать целочисленную матрицу А размером 7х8, состоящую из 0 и 1 по следующему правилу: если сумма индексов элемента четная, элемент будет нулевым, если нечетная-единичным.
2) Дана вещественная матрица Х размера 6х8. В каждом столбце найти наибольшее значение и сформировать одномерный массив из найденных значений.
Подпрограммы:
3) Даны три матрицы: Х, Y, Z размером NxM (n,m ≤12). Определить, в какой из них среднее арифметическое положительных элементов больше.
Строки:
4) Дана строка символов. Заменить в ней большие (прописные) русские буквы на маленькие (строчные), а маленькие на большие, остальные символы оставить без изменения.
5) Дана строка, содержащая последовательность слов, разделенных любым количеством пробелов и знаками препинания, и заканчивающаяся точкой. Подсчитать, сколько она содержит.

Добавлено через 12 минут
Помогите решить пару задачек на Pascal///
Двумерные массивы:
1) Сформировать целочисленную матрицу А размером 7х8, состоящую из 0 и 1 по следующему правилу: если сумма индексов элемента четная, элемент будет нулевым, если нечетная-единичным.
2) Дана вещественная матрица Х размера 6х8. В каждом столбце найти наибольшее значение и сформировать одномерный массив из найденных значений.
Подпрограммы:
3) Даны три матрицы: Х, Y, Z размером NxM (n,m ≤12). Определить, в какой из них среднее арифметическое положительных элементов больше.
Строки:
4) Дана строка символов. Заменить в ней большие (прописные) русские буквы на маленькие (строчные), а маленькие на большие, остальные символы оставить без изменения.
5) Дана строка, содержащая последовательность слов, разделенных любым количеством пробелов и знаками препинания, и заканчивающаяся точкой. Подсчитать, сколько

Сообщение от vonemes1 слов

она содержит.

Дана вещественная матрица Х размера 6х8. В каждом столбце найти наибольшее значение и сформировать одномерный массив из найденных значений.

const n=6;
m=8;
var a:array[1..n,1..m] of integer;
b:array[1..m] of integer;
i,j,max:integer;
begin
randomize;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(20)-10;
write(a[i,j]:4);
end;
writeln;
end;
writeln;

for j:=1 to m do
begin max:=a[1,j];
for i:=1 to n do

if (max<a[i,j]) then max:=a[i,j];

b[j]:=max; end;
for j:=1 to m do begin
write(b[j]:4); end; writeln;
readln; writeln;

end.

1