for j:=1 to 4 do begin  //"фиксируем" колонну
    sum := 0;           //обнуляем счетчик
    for i:=1 to 3 do begin // бежим по строкам
        sum:= sum + a[i][j];
    end;
    writeln (sum);
    writeln();
end;