Tugas Struktur & Organisasi Data 2

uses crt;
var
a,b,posisi : integer;
pilihan : byte;
x,y: string;
label o;
begin
clrscr;
o:clrscr;
writeln('---Menu Tugas S.O.D---');
writeln('1.Input String');
writeln('2.Mencari Panjang String');
writeln('3.Menggabungkan String');
writeln('4.Menyisipkan String');
writeln('5.Keluar');
writeln;
writeln('Pilih Operasi yang ingin anda proses');
readln(pilihan);
case pilihan of
1 : begin
clrscr;
writeln('Masukan String yang ingin anda proses : ');
readln(x);
readln;
goto o;
end;
2 : begin
clrscr;
write('Masukkan string yg ingin anda ketahui panjang karakternya : ');readln(x);
write('memiliki panjang string sebanyak : ',length(x));
readln;
goto o;
end;
3: begin
clrscr;
writeln('Silahkan masukkan 2 kata yang ingin anda gabungkan : ');
clrscr;
write('kata pertama adalah : ');readln(x);
write('kata kedua adalah : ');readln(y);
write('kata yang telah anda gabungkan adalah : ',concat(x,y));
readln;
goto o;
end;
4: begin
clrscr;
writeln('Silahkan masukkan kata yang ingin anda sisipkan di kata pertama: ');
write('Kata pertama : ');readln(x);
write('Kata kedua yg akan anda sisipkan pada kata pertama) : ');readln(y);
write('Tentukan posisi dimana anda ingin menyisipkan kata kedua ke dalam kata pertama : ');readln(posisi);
Insert(x,y,posisi);
write (y);
readln;
goto o;
end;
5: begin
end;
end;
end.