Wildhan outSIDer Jogja

Ini cuma salah satu program sederhana yg berisi array untuk memenuhi tugas Pemrograman Dasar.
so check this out..
kritik dan saran komen aja.

========================================================
uses wincrt;
type larik=array [1..20] of string;
     larik2=array [1..20] of longint;
var brg,alamat:larik;
    harga:larik2;
    i,n,posisi:byte;
    ketemu:boolean;
    cari:string;
    lagi:char;
    stop:string;
    total:longint;
    rata:real;
    max,min:longint;
label ulang;

begin
ulang:
begin
     writeln('----------------------------');
     writeln('TUGAS ALPRO II -- DATA ARRAY' );
     writeln('----------------------------');
     writeln('Jika ingin berhenti, masukkan "end" pada nama'); writeln('dan "0" pada harga. Tanpa tanda petik');
repeat
begin
     inc(n);
     writeln; write('Masukan nama brg ke ',n,' ===> ');
     readln(brg[n]);
     write('Masukkan harganya ===> '); readln(harga[n]); total := total + harga [n];
end
until (brg[n]='end') and (harga[n]=0);
dec(n);
clrscr;
writeln('TUGAS ALPRO II -- DATA ARRAY' );
writeln('  no        nama           harga');
writeln('------------------------------------');
for i:=1 to n do writeln(i:3,'   |   ', brg[i]:10,'   |  ', harga[i]:8);
writeln('------------------------------------');  


lagi :='y';;
write('mau mencari barang di dalam tabel? <y/t> ');readln(lagi);
while lagi='y' do
begin
writeln;
write('barang yang di cari? '); readln(cari);
ketemu:=false;
for i:=1 to n do
         if brg[i]=cari then
         begin ketemu:=true; posisi:=i; end;

writeln;
if ketemu then writeln(cari, ' ada dalam tabel pada posisi ke ', posisi) else
writeln ('Maaf ',cari,' tidak ada di dalam tabel');
writeln;write('Mau mencari nama yang lain? <y/t> ');readln(lagi);
end;


total := total;
rata:= total/n;
max:=harga [1]; min:= harga [1];
for i:=2 to n do
    begin
         if harga [i]>max then begin max:=harga [i];end;
         if harga [i]<min then begin min:=harga [i];end;
     end;                                                               
    writeln; writeln('Total harga dari ',n,' barang adalah ',total);
    writeln('Harga rata2 dari ',n,' barang adalah ', rata:4:2);
    writeln('Harga tertinggi adalah ',max);
     writeln('Harga terendah adalah ',min);

writeln; writeln;
write('Mau hentikan program atau teruskan input data? <henti/terus> '); readln(stop);

if stop='henti' then halt
else if stop='terus' then begin clrscr;goto ulang;end;
end;
end.
========================================================