sisipan kata

program sisipan;
uses wincrt;
var
  lagi : char;
  insline : integer;
begin
clrscr;
  writeLn('Ini baris ke 1');
  writeLn('Ini baris ke 2');
  writeLn('Ini baris ke 3');
  writeLn('Ini baris ke 4');
  writeLn;
  write('Mau sisipkan baris dimana ? (2-4) : ');
  ReadLn(lagi);
   if (lagi='2') then
    begin
     gotoXY(1,2);writeln('insline');
     gotoXY(1,2);write('-- BLOG COPY PASTE --');
     gotoXY(1,7);clrEol;
     writeLn('Baris ke  ',lagi,' sudah di sisipkan.');
     writeLn('tekan Enter untuk keluar');
     readLn;
     exit;
    end;
   if (lagi='3') then
    begin
     gotoXY(1,3);writeln('insLine');
     gotoXY(1,3);write('-- KUNJUNGI BLOG SAYA --');
     gotoXY(1,7);clrEol;
     writeLn('Baris ke  ',lagi,' sudah di sisipkan.');
     writeLn('Tekan Enter untuk keluar');
     readLn;
     exit;
    end;
   if (lagi='4') then
    begin
     gotoXY(1,4);writeln('insLine');
     gotoXY(1,4);write('-- TRIMAKASIH ATAS KUNJUNGANNYA --');
     gotoXY(1,7);clrEol;
     writeLn('Baris ke  ',lagi,' sudah di sisipkan.');
     writeLn('Tekan Enter untuk keluar');
     readLn;
     exit;
    end
   else
    begin
     gotoXY(1,7);clrEol;
     writeLn('Pilihan salah !, baris tidak disisipkan.');
     writeLn('Tekan Enter untuk keluar');
     ReadLn;
    end 
end.