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

[rov4]

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

[murphy]

чето такое

Код

program hhj;
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);
     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;
 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;

надо бы откомпелировать и проверить (мог запутаться в индексах) но если включу паскаль может интернет вылететь