Linear Array pada Pascal

Tanggal cantik hari ini, yang harusnya gw bisa nonton film yang sangat gw tunggu sejak 3 tahun lalu gw baca novelnya, terhalang izin dari ibunda tercinta. Ya mau gimana lagi, daripada kenapa-kenapa di jalan kan lebih bahaya. Alhasil, gw menggalau dengan buat program mengenai Linear Array. Ngga terlalu rumit ko, gw ambil simplenya aja :D Check this out !

program LinearArray;
uses crt;

label
ulang;

var ba, w, pil:longint;

procedure satudimensi;
var la, n : longint;
begin
clrscr;
write('Nomor Variabel (N) : '); readln(n);
la:=ba+w*(n-1);
writeln('Lokasi awal dari nomor variabel ',n,' adalah ', la);
readln;
end;

procedure duadimensi;
var RMO, CMO, pb, pbt, pk, pkt, lar, lac: longint;
begin
clrscr;
write('Diketahui panjang baris : '); readln(pb);
write('Diketahui panjang kolom : '); readln(pk);
writeln;
writeln('Ditanya : ');
write('Baris : '); read(pbt); write('Kolom : '); read(pkt);
RMO := (pk*(pbt-1))+pkt; lar := ba+w*(RMO-1);
CMO := (pb*(pkt-1))+pbt; lac := ba+w*(CMO-1);
writeln('Lokasi awal pada RMO adalah : ', lar);
writeln('Lokasi awal pada CMO adalah : ', lac);
readln;
end;

begin
    ulang:
     clrscr;
writeln('===== LINEAR ARRAY =====');
writeln;
write('Alamat awal (BA) : '); readln(ba);
write('Lebar (W) : '); readln(w);
writeln;
writeln('1. Satu Dimensi');
writeln('2. Dua Dimensi');
writeln('3. Keluar');
writeln('Masukkan pilihan Anda : '); read(pil);
writeln;
if pil=1 then satudimensi
else if pil=2 then duadimensi
else if pil=3 then exit else goto ulang;
readln;
end.