помогите с матрицами плиз

[Darkstar]

задача №1: ==В вести квдратную матрицу целых чисел, в каждой строке найти максимальный среди положительных элементов и заменить его суммой предшествующих.==
задача №2: ==Ввести квадратную матрицу целых чисел, в каждом элементе исходной матрицы поменять местами первую и последнюю цифру, в котрой найти максимальный элемент и заменить его суммой элементов исходной матрицы.==

ПЛИЗ ПОМОГИТЕ
мне просто это очень тяжелодается((
в делфи

[Darkstar]

ну неужелене у кого нет такой проги ну или хотябы подобной, или часть проги))

[puporev]

Писать весь проект это Ваше дело, а лгоритмом помогу.
Задача 1.

var a:array[1..20,1..20]of integer;
    n,i,j,k,max,jmax,sum:integer;
begin
................
for i:=1 to n do
   begin
    max:=a[i,1];jmax:=1;//макс=1му элементу, его номер=1
    for j:=2 to n do
    if (a[i,j]>0)and(a[i,j]>max) then//если находим положительный больше
      begin
        max:=a[i,j];//запоминаем его
        jmax:=j; //и его номер
      end;
   sum:=0; //сумма=0
   for k:=1 to jmax-1 do//от 1 до номер макс-1
   sum:=sum+a[i,k];//складываем
   a[i,jmax]:=sum; //вместо макс записываем сумму
 end;