Coding Pascal Mengenai String

Ini adalah sebuah tugas dari mata kuliah Struktur & Organisasi Data 2, yang ada di Universitas Gunadarma, yang diajarkan pada 2KA 17 oleh Lily Wulandari.

Disini akan dituliskan Coding Pascal untuk mencari panjang dari sebuah string, menggabungkan isi dari kedua string, dan menyisipkan isi dari sebuah string ke dalam string lain.

Berikut adalah Coding nya :

uses crt;
var pilih,c1,c2 : integer;
    a,b,d : string;

begin
     clrscr;
     writeln('Pilih menu');
     writeln('1. Mencari panjang dari sebuah string.');
     writeln('2. Menggabungkan isi dari kedua string.');
     writeln('3. Menyisipkan isi dari sebuah string ke dalam string lain.');
     write  ('Pilihan anda :'); readln(pilih);
   
     (* Memulai pilihan *)
     case pilih of
         (*Mengihtung panjang dari sebuah string.*)
     1 : Begin
         writeln('Tulis string yang anda ingin hitung panjangnya.');
         readln(a);
         c1:=length(a);
         writeln('Panjang dari ',a,' adalah ',c1);
         end;
         (*Menggabungkan isi dari kedua string. *)
     2 : Begin
         writeln('Tulis string pertama yang anda ingin gabungkan.');
         readln(a);
         writeln('Tulis string kedua yang anda ingin gabungkan.');
         readln(b);
         d:=concat(a,b);
         writeln('Gabungan string ',a,' dan string ',b,' adalah ',d);
         end;
         (*Menyisipkan isi dari sebuah string ke dalam string lainnya.*)
     3 : Begin
         writeln('Tulis string pertama yang anda inginkan.');
         readln(a);
         writeln('Tulis string yang ingin disisipkan.');
         readln(b);
         writeln('Huruf ke berapa yang ingin disisipkan?');
         readln(c1);
         insert(b,a,c1);
         writeln('Gabungan stringnya adalah ',a,' dan ',b);
         end;
     else
         writeln('Menu yang dipilih salah.');
         end;
     writeln('Ketik apa saja untuk mengakhiri program.');
     readln;
end.