Program Grafik Horisontal

PROGRAM Grafik_Horisontal;
USES Crt;
VAR
  Angka        : array [1..100] of Integer;
  i, J, A      : Integer;
  Ch           : Char;
BEGIN
  Clrscr;
  Writeln ('MEMBUAT GRAFIK HORISONTAL');
  Writeln ('=========================');
  Writeln;
  REPEAT
    Write ('Masukkan Banyak Data : '); 
    Readln (A);
    for i := 1 to A do
      BEGIN
        Write ('Masukkan Angka Ke-',i,' : ');
        Readln (Angka[i]);
      END;
    for i := 1 to A do
      BEGIN
        Write ('|');
        for J := 1 to Angka[i] do
          Write ('=');
        Write (Angka[i]);
        Writeln;
      END;
    Writeln;
    Write ('Mau Ulang Lagi [Y/T] ? ');
    Readln (Ch);
  UNTIL Upcase (Ch) = 'T';
END.