Выделить всё

program maxElement;

var i:integer; j:integer; max:integer;
A:array[1..4,1..4] of integer;
key:integer;

BEGIN
	
	max := -999;
	
	for i:=1 to 4 do 
		for j:=1 to 4 do
			begin
				write ('A[',i,',',j,'] = ');
				read (A[i,j]);
			end;
			
	for i:=1 to 4 do 
		for j:=1 to 4 do
			begin
				if A[i,j] > max then 
				begin
					max := A[i, j];
					key := j;
				end;
			end;

	writeln ('Столбец (', key, ') с max элементом (', max, '):');


	for i:=1 to 4 do 
	
		writeln (A[i, key]);
			
END.