Помогите решить задачи(есть ошибки в решинии)

[denisok]

Вот домой по поскалю задали...вообще непойму как делать((
1) Вычислить z=S1+S2/2 где S1 - сумма положительных элементов массива X(50); S2 - сумма отрицательных элементов массива Y(60).
Примечание обе суммы вычислять в одной подпрограмме.
Задачу надо выполнить с использованием попрограммы-функция !!

Program xys;
var
xs,ys,i:integer;
x:array[1..50] of integer;
y:array[1..60] of integer;
z:real;
function go:boolean;
begin
for i:=1 to 60 do
begin
if(y[i]<0) then
ys:=ys+y[i];
if(i>50) then
continue;
if(x[i]>0) then
xs:=xs+x[i];
end;
begin
xs:=0;
ys:=0;
go;
z:=xs+ys/2;
end.

2) Найти наибольший и наименьший элементы матрицы и поменять их местами.
Имя матрицы и размеры: R(K,N)
Условия и ограничения: k меньше либо равно 20,N меньше либо равно 10.

Program pr2;
var
r:array[1..20,1..10] of integer;
mi,mc,mxi,mxc,i,c:integer;
begin
mxi:=1;
mxc:=1;
for i:=1 to 20 do
begin
for c:=1 to 10 do
begin
if(r[i,c]>max) then
begin
mxi:=i;
mxc:=c;
end;
if(r[i,c]<min) then
begin
mi:=i;
mc:=c;
end;
end;
end;
i:=r[mi,mc];
r[mi,mc]:=r[mxi,mxc];
r[mxi,mxc]:=i;
end;

3) Вычеслить суммы элементов верхней треугольной матрицы для матриц A(10;10),B(15,15)
Выполнить с импользованием подпрограаммы-процедуры.
3ю вообще не знаю как начать(*(

ЗАРАНЕЕ БЛАГОДАРЕН!!!ОЧЕНЬ СИЛЬНО ПОМОЖЕТЕ...А то ппц скок лаб задали...а я ток 3 сделал,и то с помощью...плохо шарю в паскале

[SeRhy]

Program xys;
var
b;boolean;
xs,ys,i:integer;
x:array[1..50] of integer;
y:array[1..60] of integer;
z:real;
function go:boolean;
begin
for i:=1 to 60 do
begin
if(y[i]<0) then
ys:=ys+y[i];
if(i>50) then
continue;
if(x[i]>0) then
xs:=xs+x[i];
end;
begin
xs:=0;
ys:=0;
repeat b:=go until go=true;
z:=xs+ys/2;
end.

[denisok]

SeRhy неа,не работает(( 3я строчка ошибка
Error 86: '':'' expected
Ставил вместо ; : - просила end с точкой поставить,ставил кароче ошибки одна за другой((
А так спс!