Program Matrik

sory bro sebelumnya ane gak punya compiler pascal jadi belum tak compile tapi moga2 aja bner. ane buatnya di notepad
program matriks;
uses wincrt;
var baris, kolom, a, b, c, jumlah : integer;
    matrik : array [1..100,1..100] of integer;
    hasil : array [1..100] of integer;

begin
    write ('Baris = ');readln (baris);
    write ('kolom = ');readln (kolom);
    writeln;
    for a := 1 to baris do
    begin
        for b := 1 to kolom do
        begin
            gotoxy(b*6,a*3);
            readln (matrik[a,b]);
        end;       
        writeln;
    end;
    writeln;
    jumlah := baris + kolom;
    for a := 1 to jumlah do
    begin
        for b := 1 to baris do
        begin
            for c := 1 to kolom do
            begin
                hasil[a] := hasil[a] + matrik[c,b];
            end;
        end;
        for b := 1 to kolom do
        begin
            for c := 1 to baris do
            begin
                hasil[a] := hasil[a] + matrik[c,b];
            end;
        end;
    end;
    writeln ('=== MATRIKS HASIL ===');
    for a := 1 to baris do
    begin
        for b := 1 to kolom do
        begin
            write (matrik[a,b], ' ');
        end;
        writeln (' = ', hasil[a]);
    end;
    for a := 1 to kolom do
    begin
        write (hasil[a], ' ');
    end;
end.