operasi Matriks Borland delphi

buat teman-teman yang sedang belajar borland delphi , berikut script untuk perkalian,penjumlahan matriks, semoga mudah dimengerti dan bermanfaat^^v


program matriks;

{$APPTYPE CONSOLE}

uses
SysUtils;

type TDigits=array[1..10,1..10]of integer;
var x1:TDigits;
x2:TDigits;
x3:TDigits;
n,i,j,pilih,k:integer;




procedure baca(var matrix:TDigits);
begin
write('Masukkan data : ');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
write('data ke [',i,',',j,']:');
readln(matrix[i][j]);
end;
writeln;
end;
end;

procedure tampil(var matrix:TDigits);
begin
writeln('tampil data : ');
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
write(matrix[i][j],' ');
end;
writeln;
end;
writeln;
end;

procedure jumlah(var matrix1,matrix2:TDigits);
begin
writeln('jumlah data : ');
writeln;
for i:=1 to n do
begin
for j:=1 to n do
// begin
write(' ',matrix1[i][j]+matrix2[i][j]);
//end;
writeln;
end;
writeln;
end;

procedure kali(var matrix1,matrix2,matrix3:TDigits);
begin
writeln('perkalian data : ');
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
matrix3[i][j]:=0;
for k:=1 to n do
matrix3[i][j]:=matrix3[i][j]+matrix1[i][k]*matrix2[k][j];
write(' ',matrix3[i][j]);
end;
writeln;
end;
writeln;
end;

begin
repeat
writeln('1. Baca data');
writeln('2. jumlah data');
writeln('3. kali data');
writeln('4. tampil data');
writeln('5. Keluar');
write('Masukkan pilihan anda : ');
readln(pilih);
case pilih of
1: begin
baca(x1);
writeln;
baca(x2);
end;

2: begin
jumlah(x1,x2);
end;
3: begin
kali(x1,x2,x3);
end;

4: begin
tampil(x1);
writeln;
tampil(x2);
end;
end;
until pilih=5;
end.