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

vara: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.