массив в паскале

[glavsvetik]

здравствуйте,проверьте пожалуйста.
в массиве В[1..4,1..4] найти суммуэлементов расположенных над побочной диагональю
var B:array[1..4,1..4] of real;
{заполним массив I –столбец k- строка}
For i:=1 to 4
Begin
For k:=1 to 4
Readln(B[I,k]);
End;
{подсчет}
S:=0;
For i:=1 to 4
Begin
For k:=I to 4
S:=s+B[I,k];
End;
Writeln (s);

[Sazary]

Так а что проверять? Программа не дописана.
Конструкция цикла for такая:

for i:=1 to 4 do

вы ведете подсчет элементов над главной диагональю, а надо над побочной.
Ну и, как уже сказал, допишите программу до конца.