Дан массив А [5,5]. Построить Массив В(5) по следующему правилу: В(J) присвоить максимальный элемент J-го столбца массива А — Pascal(Паскаль)

VAR
  A: ARRAY[1..5, 1..5] OF INTEGER;
  B: ARRAY[1..5] OF INTEGER;
  i, j: BYTE;
BEGIN
  Randomize;
  FOR i := 1 TO 5
  DO
    FOR j := 1 TO 5
    DO
      A[i,j] := Random(10);
  WRITELN('A:');
  FOR i := 1 TO 5
  DO
    BEGIN
      FOR j := 1 TO 5
      DO  
        WRITE(A[i,j]);
      WRITELN;
    END;           //Ôîðìèðóåì è âûâîäèì À
  FOR j := 1 TO 5
  DO
    BEGIN
      B[j] := A[1,j];
      FOR i := 1 TO 5
      DO
        IF A[i,j] > B[j]
        THEN
          B[j] := A[i,j];      
    END;
  WRITELN;
  WRITELN('B:');
  FOR j := 1 TO 5
  DO
    WRITE(B[j]);
  WRITELN;
  READLN
END.