PASCAL ARRAY KOTA

PROGRAM TEMPUH;
USES crt;
TYPE
  dafkota=ARRAY[1..20] OF STRING[20];

VAR
   kota:dafkota;
   n,i:integer;
   halt:char;

PROCEDURE input(x:integer);
BEGIN
   FOR i:=1 TO x DO
   BEGIN
   write('Kota ke-',i,' : ');readln(kota[i]);
   END;
   writeln;
END;

PROCEDURE output(y:integer);
BEGIN
   writeln('Rute kota yang akan Anda tempuh :');
   FOR i:=1 TO y DO
    write(kota[i],' - ');
   writeln('STOP');
   writeln;
   writeln('Kota akhir dari perjalanan Anda adalah kota ',kota[y]);
END;

BEGIN
    REPEAT
    clrscr;
    writeln('RUTE PERJALANAN');
    writeln('---------------');
    write('Perkiraan jumlah kota yang dilalui : ');
    readln(n);
    input(n);
    output(n);
    writeln;
    Write('Tekan H untuk mengakhiri atau tombol lain untuk mengulangi : ');
    halt:=readkey;
    UNTIL halt IN ['H','h'];
    readln;
END.