ПОЖАЛУЙСТА,ОЧЕНЬ НАДО!!!!!составить программу: заполнить массив T(4,4): на главной диагонали элементы =0, остальные по формуле I-J. найти сумму элементов в четный столбцах

uses crt;varsum,i,j:integer;var mas:array[1..4,1..4]of integer;beginwrite('':3);for i:=1 to 4 dowrite(i:3);writeln;writeln('_______________');for  i:=1 to 4 do beginwrite(i:2,'|');for   j:=1 to 4 do beginmas[i,j]:=i-j;write(mas[i,j]:3);if i mod 2 =0 then sum:=sum+mas[i,j];end;writeln;end;writeln;writeln('Сума элементов в четных столбцах = ',sum); readln;end.

1. спасибо!