Membuat Matrik dengan Pascal

uses wincrt;
var A :array [1..15,1..15] of integer;
i,j,k,m,n,jawab:integer;
procedure input;
begin
clrscr;
write('Masukkan Jumlah Kolom Matriks A : ');readln(m);
write('Masukkan Jumlah Baris Matriks A : ');readln(n);
if m=n then
begin
write('Masukkan Elemen-elemen Matriks A : ');
for k :=1 to m do
begin
gotoxy(1,k+3);write('|');
gotoxy((3*m)+1,k+3);write('|');
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
gotoxy((3*j)-1,i+3);readln(A[i,j]);
end;
end;
end
else
write('Maaf Jumlah Baris Dan Kolom Harus Sama ');
writeln;
write('Tekan ENTER Untuk Kembali Ke Menu ');readln;
end;
procedure tampil1;
begin
clrscr;
write('Matriks A : ');
for k :=1 to m do
begin
gotoxy(1,k+1);write('|');
gotoxy((3*m)+1,k+1);write('|');
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
gotoxy((3*j)-1,i+1);write(A[i,j]);
end;
end;
writeln;
write('Tekan ENTER Untuk Kembali Ke Menu ');readln;
end;
procedure tampil2;
begin
clrscr;
write('Matriks A Dengan ordo M=N : ');
for k :=1 to m do
begin
gotoxy(1,k+1);write('|');
gotoxy((3*m)+1,k+1);write('|');
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
if j=i then
begin
gotoxy((3*j)-1,i+1);write(A[i,j]);
end;
end;
end;
writeln;
write('Tekan ENTER Untuk Kembali Ke Menu ');readln;
end;
begin
repeat
clrscr;
gotoxy(15,1);writeln('MENU MATRIKS');
gotoxy(5,2);writeln('<1> Input Matriks A ');
gotoxy(5,3);writeln('<2> Tampilkan Semua Elemen Matriks A ');
gotoxy(5,4);writeln('<3> Tampilkan Elemen Matriks A dengan ordo M=N ');
gotoxy(5,5);writeln('<4> Keluar dari Menu');
gotoxy(20,6);writeln(' ');
gotoxy(5,6);write('Pilihan Anda = ');
gotoxy(20,6);readln(jawab);
case jawab of
1:input;
2:tampil1;
3:tampil2;
end;
until (jawab = 4);
clrscr;
gotoxy(16,12);writeln('<<<<<<>>>>>>');
end.