Program Susah

Ini nih program yang buat saya berpikir sampai semalaman. Ditambah pikiran hari-hari sebelumnya. Silakan dicoba teman-teman. Dilihat source codenya, diperhatikan seperti apa dan apa yang terjadi.
Catatan : untuk tugas yang dikumpulkan, saya buat sedikit berbeda. Tentunya lebih lengkap lah yang punya saya ^^







program lagi2;
uses crt;
var masuk,rubah,hasil : string;
    i,j,k:integer;
    a:array[1..100] of integer;
begin
  clrscr;
  write('Masukkan katanya : ');
  readln(masuk);
  for i:=1 to length(masuk) do
    if (ord(masuk[i])>64) and (ord(masuk[i])<91) then
      masuk[i]:=char(ord(masuk[i])+32);
  rubah:= masuk;
  for i:=1 to length(masuk) do
    if (ord(masuk[i])>96) and (ord(masuk[i])<123) then
      rubah[i]:=char(219-ord(masuk[i]));
  writeln(masuk);
  writeln(rubah);
  hasil:=rubah;
  j:=0;
  for i:=1 to length(masuk) do
    begin
      if (masuk[i]='(') and (masuk[i+1]='''') then
        j:=i
      else if (masuk[i]='''') and (masuk[i+1]=')') and (j<>0) then
        begin
          for k:=j to i do
            a[k]:=1;
          j:=0;
        end;
    end;
    for i:=1 to length(masuk) do
      if a[i]=1 then
        hasil[i]:=masuk[i];
    writeln('Output = ',hasil);
  readln;
end.