Matrix Addition Pascal

program matriks;
uses crt;

var
  matriks:array[0..3,0..3] of integer;

// Prosedur input & output
procedure main;
var
mat,mats,i,j,k,h,l:integer;
run:string;

begin
  clrscr();

  // Mengembalikan bilangan komponen matriks ke 0
  for h:= 0 to 1 do
  begin
    for l:= 0 to 3 do
      begin
        matriks[h,l]:= 0;
      end;
  end;

  mats:= 0;

  // Nested loop
  // Perulangan untuk matriks 1 dan 2
  for mat:= 0 to 1 do
  begin
    k:= 0;
    mats:= mats+1;

    // Perulangan input komponen baris matriks
    for i:= 1 to 2 do
    begin

      // Perulangan input komponen kolom matriks
      for j:= 1 to 2 do
      begin
      clrscr;
      writeln('MATRIKS ',mats);
      writeln;
      writeln(matriks[0,0],' ',matriks[0,1],'   ',matriks[1,0],' ',matriks[1,1]);
      writeln('    +');
      writeln(matriks[0,2],' ',matriks[0,3],'   ',matriks[1,2],' ',matriks[1,3]);

      write('Masukkan bilangan baris ke-',i,' kolom ke-',j,':');
      readln(matriks[mat,k]);
      k:= k+1;
      end;
     end;
   end;

   clrscr;
   writeln(matriks[0,0],' ',matriks[0,1],'   ',matriks[1,0],' ',matriks[1,1]);
   writeln('    +');
   writeln(matriks[0,2],' ',matriks[0,3],'   ',matriks[1,2],' ',matriks[1,3]);
   writeln;

   // Penjumlahan kedua matriks
   for i:= 0 to 3 do
     matriks[0,i]:= matriks[0,i]+matriks[1,i];

   // Output
   writeln('MATRIKS 1 + MATRIKS 2');
   writeln;
   writeln(matriks[0,0],' ',matriks[0,1]);
   writeln;
   writeln(matriks[0,2],' ',matriks[0,3]);
   writeln;

   // Ulang program?
   write('Jalankan program lagi? Y/N: ');
   readln(run);

   if run = 'Y' then
     main;
end;

begin
main;
end.