матрицы...функции и процедуры..

[ducky]

подскажите пожалуйста, правильно ли я сделала программы по матрицам..

условие - var A:array [1..9.1..9] of real; s:real;
Найти s — сумму элементов из заштрихованной области массива А (пункт "б" на рисунке)

http://i54.tinypic.com/10ggopc.jpg



uses crt;
var
a:array[1..4,1..4] of real;
s:real; i,j:integer;c,k:real;
begin
clrscr;
FOR I:=1 TO 3 DO
for j:=1 to 3 do
begin
write ('a[',i,',',j,']=');
readln(a[i,j])
end;
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
write(a[i,j]:6:2);
writeln;
end;
writeln;
c:=a[2,2];
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
if (i=j) or (i+j=4) then k:=k+ a[i,j];

end;
s:= k;

writeln('suma elementiv= ',s:6:2);
readln
end.



и намекните как можно решить задачу на функции и процедуры..
условие - Пусть процедура maxmin(x,y) присваивает параметру х большее из вещественных чисел x и у, а параметру у - меньшее.
а) Какие из параметров этой процедуры обозначают исходные данные для нее, а какие - результаты? Какие параметры следует объявить параметрами-значениями, а какие—параметрами-переменными?
б)* Допустимы ли обращения maxmin(5.2,sin(z)) и maxmin(z,k), где z—вещественная переменная, a k—целая?
в)* Описать данную процедуру и использовать ее для перераспределения значении вещественных переменных а, b и с так, чтобы стало а≥b≥с.

Заранее спасибо!)