Nếu có sai thì bạn nói mình nhé.

Program mt;
Uses    crt;
Var     a:array[1..200,1..200] of integer;
        f1,f2:text;
        m,n,i,j,s:integer;
Begin
        assign(f1,'MT.INP');
        reset(f1);
        assign(f2,'KQ.OUT');
        rewrite(f2);
        readln(f1, m, n);
        for i:= 1 to m do
                 for j:=1 to n do
                        read(f1,a[i,j]);
        writeln(f2,m);
        for i:= 1 to m do
                begin
                        s:=0;
                        for j:= 1 to n do
                                inc(s,a[i,j]);
                                write(f2,s, ' ');
                end;
        close(f1);
        close(f2);
End.

program tong_hang;
var f,g:text;
    A:array[1..1000,1..1000] of integer;
    n,m,i,j,t:integer;
begin
    Assign(f,'MT.INP');  reset(f);
    Assign(g,'KQ.OUT');  rewrite(g);
    readln(f,m,n);
    for i:=1 to m do
        begin
            for j:=1 to n do read(f,A[i,j]);
            readln(f);
        end;
    writeln(g,m);
    for i:=1 to m do
        begin
            t:=0;
            for j:=1 to n do t:=t+A[i,j];
            write(g,t,' ');
        end;
    close(f);  close(g);
end.