tugas matrik

program fazar;
uses wincrt;
type matriks = array[1..25, 1..25] of integer;
var
a,at,b,c,hasil:matriks;
m,n,o,nm : integer;
bar,kol,kolbar:integer;
jawab,ex : char;
procedure bacamatrik;
begin
write('Banyaknya Baris Matriks = ');readln(bar);
write('Banyaknya Kolom Matriks = ');readln(kol);
writeln;
writeln('Masukkan Matriks A');
for m:=1 to bar do
begin
for n:=1 to kol do
begin
write('A [',m,',',n,'] = ');
readln(a[m,n]);
end;
end;
writeln;
writeln('Masukkan Matriks B');
for m:=1 to bar do
begin
for n:=1 to kol do
begin
write('B [',m,',',n,'] = ');
readln(b[m,n]);
end;
end;
writeln;
end;
procedure tampilmatrik;
begin
writeln('Matriks Yang Kamu Masukkan : ');
writeln('Matriks A: ');
for m:=1 to bar do
begin
for n:=1 to kol do
write(' ',a[m,n],' ');
writeln;
end;
writeln('Matriks B: ');
for m:=1 to bar do
begin
for n:=1 to kol do
write(' ',b[m,n],' ');
writeln;
end;
end;
procedure tulismatrik;
begin
writeln('Hasil : ');
for m:=1 to bar do
begin
for n:=1 to kol do
write(' ',c[m,n],' ');
writeln;
end;
end;
procedure tambahmatrik;
begin
bacamatrik;
tampilmatrik;
for m:=1 to bar do
for n:=1 to kol do
c[m,n]:=a[m,n]+b[m,n];
tulismatrik;
end;
procedure kurangmatrik;
begin
bacamatrik;
tampilmatrik;
for m:=1 to bar do
for n:=1 to kol do
c[m,n]:=a[m,n]-b[m,n];
tulismatrik;
end;
procedure menu;
begin
writeln;
writeln(' MENU UTAMA');
writeln('====================================================');
writeln('1.Pertambahan Matriks');
writeln('2.Pengurangan Matriks');
writeln('3.Exit');
writeln;
writeln('Masukkan Pilihan (1/2/3)?');
readln(nm);
writeln;
clrscr;
end;
begin
while(nm<=3) do
begin
menu;
case nm of
1: begin
writeln;
writeln(' Pertambahan Matriks');
writeln('--------------------------------');
tambahmatrik;
writeln;
write('Lanjutkan ? (Tekan Enter)');readln;
clrscr;
end;
2: begin
writeln;
writeln(' Pengurangan Matriks');
writeln('--------------------------------');
kurangmatrik;
write('Lanjutkan ?(Tekan Enter)');readln;
clrscr;
end;
3: begin
write('Apakah Anda Yakin (y/t)?');readln(ex);
if ex='t' then
clrscr
else
begin
writeln('Terima Kasih');
exit;
end;
end;
end;
end;
end.