Program Perkalian Matriks pada Pascal

program perkalian_matrix;
uses crt;

{deklarasi variable dan type data untuk program perkalian matrik}
var
a,b,c : array [1..50,1..50] of integer;
i,j,k,x,y,z : integer;

{pembuatan tampilan dan penentuan baris dan kolom matrik}
begin
    clrscr;
    writeln('Ukuran matrik A');
    write('Baris : ');
    readln(x);
    write('Kolom : ');
    readln(y);
    writeln;
    writeln;
    writeln('Ukuran matrik B');
    writeln('Baris : ',y);
    write('Kolom : ');
readln(z);

    for i:=1 to x do
    for j:=1 to y do

    {pembuatan output untuk menginput nilai matriks A}
begin
    writeln;
    writeln('Masukan Nilai Matrix A');
    write('Elemen A[',i,',',j,'] : ');
    readln(a[i,j]);
end;

    writeln;
    for i:=1 to y do
    for j:=1 to z do

    {pembuatan output untuk menginput nilai matriks B}
begin
    writeln;
    writeln('Masukan Nilai Matrix B');
    write('Elemen B[',i,',',j,'] : ');
    readln(b[i,j]);
end;

{oprasi prgram untuk perkalian matriks}

    for i:=1 to x do
    for j:=1 to z do
    for k:=1 to y do
    c[i,j] := c[i,j] + a[i,k]*b[k,j];
    writeln; writeln;
writeln('Hasil dari perkalian Matrix A dengan Matrix B adalah : ');
    writeln;
    for i:=1 to x do

begin
    for j:=1 to z do
    write(c[i,j],' ');
    writeln;

end;
    writeln;
    readln;
end.