простить код

var
 T, T1:array[1..10, 1..10] of integer;
 b:array[1..100] of integer;

  x,m,n:byte;
  i,j,max,k,p,c:integer;


 sum: word;
 begin
 sum:=0;
 max:=0;
 write('‚ўҐ¤ЁвҐ зЁб«® бва®Є ');
 readln(n);
 write('‚ўҐ¤ЁвҐ зЁб«® бв®«Ўж®ў ');
 readln(m);
if (n>1) and (n<10) and (m>1) and (m<10) then
 begin
 for i:=1 to n do
 for j:=1 to m do
  begin
 write('T[',i,',',j,']=');
 readln(T[i,j]);
if T[i,j]>0 then
 sum:=sum+T[i,j];
 {if T[x,y]>max then
 max:=t[x,y];
end;
   writeln(max); }
   end;
 writeln('Њ*ваЁж*');
 for i:=1 to n do begin
 for j:=1 to m do


write(T[i,j],' ');
writeln;

end;
writeln('Љ®«ЁзҐбвў® Ї®«®¦ЁвҐ«м*ле н«Ґ¬Ґ*в®ў ',sum);
  for k:=1 to n do
  begin
   for i:=1 to n do
   begin
    for j:=1 to m do
   begin
  x:=0;
                If max<T[i,j] then begin
                    if k=1 then begin
                     max:=T[i,j];
                     p:=i;
                    end;

                    if k>1 then
                    begin
                        for c:=1 to k do begin
                            if b[c]=i then x:=1
                        end;
                        If x <> 1 then begin
                            max:=T[i,j];
                            p:=i;
                        end;
                     end;
        end;
        end;
        end;
max:=0;
b[k]:=p;
    for j:=1 to m do
        T1[k,j]:=T[p,j];

      end;
for i:=1 to n do
begin
    for j:=1 to m do
    begin
        write (T1[i,j],' ')
    end;
writeln
end;

end else
write('enter');
readln;
end.