В массиве А(n, m) найти разность между суммой элементов во 2 строке и суммой элементов в 5 столбце — Pascal(Паскаль)

const n=5;m=6;
var a:array[1..n,1..m] of integer;i,j,razn:integer;
begin
for i:=1 to n do begin
 for j:=1 to m do begin
   a[i,j]:=random(100);write(a[i,j]:5);
   if i=2 then   razn:=razn+a[i,j];
   if j=5 then   razn:=razn-a[i,j];
 end; writeln;
end;
writeln(razn);
readln;
end.