program lab2;
uses crt;
const n=5; m=5;
var mas: array[1..n,1..m] of integer;
    mne:array[1..99] 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
     writeln (' max el-ent ',i,' stolbca ',mne[i]:4);


    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.