Дан двумерный массив заданный случайным образом размером 3*5. Вывести сформированный массив и найти максимальную сумму среди сумм столбцов

var a:array [1..5,1..3] of integer; b:array[1..5] of integer; x,y,imax:integer; Begini:=1; randomize; for x:=1 to 5 do  for y:=1 to 3 do  a[x,y]:=random(10);  for x:=1 to 5 do  Begin   for y:=1 to 3 do   write(a[x,y],' ');   writeln;   End;  for y:=1 to 3 do  Begin  for x:=1 to 5 do   b[i]:=b[i]+a[x,y];   i:=i+1;   End;  for i:=1 to 3 do  if b[i]>max then max:=b[i];  writeln(max); End.