program lab2;
uses crt;
const n=5; m=5;
var mas: array[1..n,1..m] of integer;
      mne:array[1..n] of integer;
      ft: text;
      i,j:integer;
      x,y:integer;
begin
clrscr;
assign(ft,'123.txt');
reset(ft);
i:=1;
while not seekeof(ft) do
  begin
    j:=1;
    while not seekeoln(ft) do
       begin
          read(ft, mas[i,j]);
          j:=j+1;
       end;
     readln(ft);
     i:=i+1;
  end;
writeln;
writeln('Ishodnaya matrica:');
writeln;
for i:=1 to n do begin
 for j:=1 to m do write(' ',mas[i,j]);
writeln;
end;
writeln;


   writeln (' Massiv iz naibolchih el-ov stolbcov: ');
        for i:=1 to n do
	   begin
  	      for j:=1 to m-1 do
	         begin 	 
   	            if mas[j,i]<mas[j+1,i] then 
		       begin
			 mne[i]:=mas[j+1,i];
		       end;
     	         end;	
                  writeln (' max el-ent ',i,' stolbca ',mne[i]:4);	      
             end; 	  


//    for i:=1 to n do
//     if mne[i]<x+1 then
//      y:=mne[i];




//    writeln;
//    writeln (' Polucheniy massiv ');
//    for i:=1 to n do
//     begin
//      for j:=1 to m do
//      write (mas[i,j]:4);
//      writeln;
//     end;



readkey;
end.