помогите дописать программы на паскале

[вадимкО]

1) const i=5;j=5;
var
mas:array[1..i,1..j] of integer;
?????????????????
for i:=1 to m
for j:=1 to m do
Sum[i]:=Sum[i]+abs(mas[j,i]);
max:=sum[1];
for i:=2 to m do
if sum[i]>max then
max:=sum[i];
for i:=1 to m do
if sum[i]=max then write('Íîìåð ñòîëáöà ñ íàèáîëüøåé ñóììîé ',i);
end.
2)var
sum,i,j: integer;
mas:array[1..i,1..j] of integer;
?????????
begin
Sum:=0;
I:=1;
repeat
max:=mas[i,1];
for j:=2 to n do
begin
if mas[i,j]>max
then max:=mas[i,j];
end;
sum:=sum+max;
inc(i);
until i=m+1;
end.
3) var I : byte; S:string; n:integer;
begin
writeln('введите символы');readln(s);
n:=0;
for I:=1 to Length(S) do
if (S[i]=' ') and (S[i-1]='E') then
inc(n);
????????
end.
4) var I : byte; S:string;
begin
for I:=1 to Length(S) do
S[i]:=UpCase(S[i]);
end;

помогите кому не трудно=(
1 условие:Дана целочисленная квадратная матрица порядка 8. Указать порядковый номер столбца, который обладает наибольшей суммой модулей элементов. Если таких, столбцов несколько, то взять первый.
2 условие: Дана действительная матрица размера m x n. Найти сумму наибольших элементов её строк.
3 условие:Дана строка символов. Преобразовать строку следующим образом: все слова напечатать с заглавной буквы (только для латинских букв)
4 условие:Составьте программу, позволяющую определить, сколько слов в заданном тексте оканчивается на "Е". Считать, что слова отделены друг от друга пробелами

[Greblin]

А условия задач видимо составляют государственную тайну?