Обработка массива, (используя процедуры и функции) Опции

[rov4]

Привет, всем!
Помогите, пожалуйста, решить задачу: Дан определённый вид массива:
1 строка: 4,0,3,0;
2 строка: 0,3,0,2;
3 строка: 2,0,1,0;
4 строка: 0,1,0,4.
(Массив дан для N = 4.)
Задание: напечатать полученный массив. Найти суммы чисел в первом и последнем столбцах и сравнить их. Вывести результаты на печать с соответствующим сообшением. Задание оформить в виде процедур (функций).
Заранее спасибо.

[volvo]

murphy
1. Постарайся все-таки проверять программы, которые выкладываются на форум.
2. В программе не описаны некоторые переменные.
3. Обрати внимание на заголовки процедур/функций
4. Функции всегда возвращают значения :D

Код

const n=4;
type
 vect = array[1..n] of byte;
 matr array[1..n] of vect;
var A: matr;

procedure prnt( B:matr; m:byte);
 var i, j : byte;
 begin
   for i:= 1 to m do
     begin
       writeln;
       for j:= 1 to m do
         write(B[j][i]);
     end;
 end;
function sum(x:vect; m:byte): integer;
 var i, s: integer;
 begin
   s:=0;
   for i:=1 to m do
     s:=s+x[i];
   sum:=s;
 end;
procedure rez(x, y:integer);
 begin
   if x>y then
     writeln (x , ' больше ')
   else  
     if x=y then ('они равны')
       else writeln(y , 'больше')
 end;

var i, j: integer;
begin
 for i:= 1 to n do
   for j := 1 to n do
     read(a[j][i]);
 prnt(a,n);  
 rez(sum(a[1],n), sum(a[n],n));
end.