Program String menggunakan Pascal for windows versi 1.5

uses
wincrt;
const
spasi=' ';
var
r,kata,kata1,kata2,kata3:string;
menu,posisi:integer;
begin
writeln('---Pilihan---');
writeln('1.Length');
writeln('2.Concat');
writeln('3.Insert');
write('masukan angka pilihan anda: ');readln(menu);
case menu of
1:begin
clrscr;
write('Silahkan masukkan string yg ingin di ketahui panjang karakternya : ');readln(kata1);
write('"',kata1,'"',' memiliki panjang string sebanyak : ',length(kata1),'karakter')
end;
2:begin
writeln('Silahkan masukkan 2 kata yang ingin di gabungkan : ');
clrscr;
write('kata pertama adalah : ');readln(kata1);
write('kata kedua adalah : ');readln(kata2);
write('2 kata yang telah anda gabungkan adalah : ',concat(kata1,kata2));
end;
3:begin
clrscr;
writeln('Silahkan masukkan kata(diikuti dengan letak)yg ingin disisipkan di kata pertama yg akan anda input : ');
write('Kata pertama : ');readln(kata1);
write('Kata kedua( yg ingin anda sisipkan pada kata pertama) : ');readln(kata2);
write('tentukan posisi dimana anda ingin menyisipkan kata kedua ke dalam kata pertama : ');readln(posisi);
Insert(kata2,kata1,posisi);
writeln(kata1);
end;
end;
end.