Program Matrik dengan Pascal

Program operasi_matrik;
uses crt;
label F;
type
matrik=array [1..10,1..10] of integer;
var
m,n,p,q :integer;
A,B,C : matrik;
hit : string;




procedure tulismatrikA;
var i,j : integer;
begin
for i:=1 to m do
begin
for j:=1 to n do
begin
gotoxy(2+2*i,1+j);
readln(A[i,j]);
end;
end;
end;

procedure tulismatrikB;
var i,j:integer;
begin
for i:=1 to m do
begin
for j:=1 to n do
begin
gotoxy(2+2*i,6+j);
readln(B[i,j]);
end;
end;
end;

procedure jumlah_matrik;
var p,q : integer;
begin
writeln;
textcolor(green);writeln('Hasil penjumlahan :');
for p:=1 to m do
begin
for q:=1 to n do
begin
C[p,q]:=A[p,q]+B[p,q];
gotoxy(2+3*p,14+q);
write(C[p,q]);
end;
end;
end;

procedure kali_matrik;
var p,q,d : integer;
begin
writeln;
textcolor(yellow);writeln('Hasil Perkalian : ');
for p:=1 to m do
begin
for q:=1 to n do
begin
C[p,q]:=0;
for d:=1 to n do
begin
C[p,q]:=C[p,q]+A[p,d]*B[d,q];
gotoxy(2+4*p,20+q);
write(C[p,q]);
end;
end;
end;
end;


begin
clrscr;
gotoxy(29,6);textcolor(yellow);writeln('PROGRAM MATRIK');
gotoxy(27,9);textcolor(green); writeln('Dibuat oleh : Muh. Ibnu FaisaL');
gotoxy(41,11);textcolor(green);writeln('M 3108107');
gotoxy(65,24);Textcolor(lightgreen);writeln('TEKAN ENTER !!!');
readln;
clrscr;
textcolor(white);
F:
writeln('MASUKKAN UKURAN MATRIK (mak 4x4)');
writeln;
writeln;
writeln('Masukkan jumlah baris'); readln(m);
writeln('Masukkan jumlah kolom'); readln(n);
writeln;
writeln;
writeln('Tekan enter !!');
readln;
clrscr;
if m or n >= 5 then begin textcolor(red);writeln ('Maaf, Ordo yang anda masukkan salah ( maksimal 4x4 )');
writeln;
textcolor(white);writeln('Tekan ENTER untuk mengulangi');
readln;
clrscr;
goto F
end else
writeln('Masukkan matrik A');
tulismatrikA;
writeln('Masukan matrik B');
tulismatrikB;
writeln;
jumlah_matrik;
kali_matrik;
readln;
end.
"C:\Documents and Settings\Admin\Desktop\Fun Mice House .lnk"