CONST
 A:ARRAY[1..6,1..6] of INTEGER ={дальше сами}
TYPE
 AR=ARRAY[1..6] of INTEGER;
VAR
 R1,R2:AR;
 i:INTEGER;

FUNCTION Find_Max(Rfm:AR;Nfm:INTEGER):INTEGER;
 VAR i:INTEGER;
BEGIN
 Find_Max:=Rfm[1];
 FOR i:=2 TO Nfm DO
  IF Rfm>Find_Max THEN Find_Max:=Rfm[i];
END;

FUNCTION Scalar_Product(Rsp1,Rsp2:AR;Nfm:INTEGER):INTEGER;
 VAR i:INTEGER;
BEGIN
 Scalar_Product:=0;
 FOR i:=1 TO Nfm DO
  Scalar_Product:=Scalar_Product+Rsp1[i]*Rsp2[i];
END;

BEGIN
 FOR i:=1 TO 6 DO
  BEGIN
   R1[i]:=A[i,1];
   R2[i]:=A[i,6];
  END;
 Writeln('Maximum element in column 1 is ',Find_Max(R1,6));
 Writeln('Maximum element in column 6 is ',Find_Max(R2,6));
 Writeln('Scalar product of columns 1 and 6 is ',Scalar_Product(R1,R2,6));
 ReadLn;
END.