Tugas Struktur dan Organisasi Data 2

uses
wincrt;
const
spasi=' ';
var
r,kata,kata1,kata2,kata3:string;
opsi,posisi:integer;
begin
writeln('Pengoperasian STRING');
writeln('Menu Pilihan :');
writeln('=================================');
writeln('===1.Menghitung panjang String===');
writeln('===2.Menggabungkan String     ===');
writeln('===3.Menyisipkan string       ===');
writeln('===4.Tentang Programmer       ===');
writeln('=================================');
write('Masukan pilihan Operasi yang akan dilakukan :');readln(opsi);
case opsi of
1:begin
clrscr;
write('Masukan Kata yang akan di hitung panjang stringnya : ');readln(kata1);
write('"',kata1,'"',' Memiliki panjang string sebanyak : ',length(kata1),' karakter')
end;
2:begin
writeln('Masukan 2 Kata yang ingin di gabungkan : ');
clrscr;
write('kata pertama : ');readln(kata1);
write('kata kedua   : ');readln(kata2);
write('2 kata yang telah anda gabungkan menjadi : ',concat(kata1,kata2));
end;
3:begin
clrscr;
writeln('Masukkan kata yg ingin disisipkan di kata pertama yg akan anda input(masukan letak karakter yang diinginkan) : ');
write('Kata pertama : ');readln(kata1);
write('Kata kedua( yg ingin anda sisipkan pada kata pertama) : ');readln(kata2);
write('Silahkan tentukan letak dimana anda ingin menyisipkan kata kedua ke dalam kata pertama : ');readln(posisi);
Insert(kata2,kata1,posisi);
writeln(kata1);
end;
4:begin
clrscr;
writeln('Nama  : Habibi Fuadi');
writeln('NPM   : 10109083');
writeln('Kelas : 2ka16');
writeln('Materi: Struktur & Organisasi Data 2');
writeln('Dosen : LILY WULANDARI');
end;
end;
end.

* skrip saya compile dari aplikasi Turbo Pascal
:)