Как узнать что это за язык программирования

Question

Мне нужно изменить формат программы VisorUS (что также очень редко), и я не могу определить, на каком языке обрабатывается этот формат.

Я знаю, что мы управляем базой данных, откуда взяты эти запросы, но этоне похоже на SQL, который я обычно обрабатываю.

Это другая версия SQL? Это сочетается с другим языком? Или это что-то совершенно другое?

begin
  IF [cdsCYP."IMPUCYP"] = 0 then
  begin
     Impsi := 0;
     Impex := [cdsCYP."IMPCYP"];
     GpoSubtex := GpoSubtex + [cdsCYP."IMPCYP"];
  end
  else
  begin
     Impex := 0;
     Impsi := [cdsCYP."IMPCYP"];
     GpoSubtsi := GpoSubtsi + [cdsCYP."IMPCYP"];
  end;

  GpoImporte := GpoImporte + [cdsCYP."NETCYP"];
  GpoSubtotal := GpoSubtotal + [cdsCYP."IMPCYP"];
  GpoImpuestos := GpoImpuestos + [cdsCYP."IMPUCYP"];


    s:=[cdsCYP."sefcyp"] ;
f:=[cdsCYP."fofcyp"];

FEC2:=FN_SQLQUERY('SELECT fedcyp FROM maecyp WHERE SERFOL='+QUOTEDSTR([s])+' AND numfol='+Str([f]) ,'fedcyp');

FEC3:=FN_SQLQUERY('SELECT NUMAGT FROM maecyp WHERE SERFOL='+QUOTEDSTR([s])+' AND numfol='+Str([f]) ,'NUMAGT');

                 MEMO34.VISIBLE:= TRUE;
                 MEMO14.VISIBLE:= FALSE;

    Z:=abs([cdsCYP."FEDCYP"]-FEC2);
       W:=[cdsCYP."NUMC|TE"];

 if    FEC3=9
    THEN begin   b:=abs([cdsCYP."NETCYP"]) * 0.10;
                 MEMO34.VISIBLE:= FALSE;
                 MEMO14.VISIBLE:= TRUE;
    end
     else if    W =1770
     then begin
                 b:=abs([cdsCYP."NETCYP"]) * 0.10;
                 MEMO34.VISIBLE:= FALSE;
                 MEMO14.VISIBLE:= TRUE;
     end
     else if    W =149
     then begin
                 b:=abs([cdsCYP."NETCYP"]) * 0.10;
                 MEMO34.VISIBLE:= FALSE;
                 MEMO14.VISIBLE:= TRUE;
     end
     else BEGIN  b:=0;
                 MEMO34.VISIBLE:= TRUE;
                 MEMO14.VISIBLE:= FALSE;
     end;

          d:=abs([cdsCYP."NETCYP"]) * 0.10 ;
     ab:=ab+b;

    FC:=FC+D;

end

Код уже был изменен кем-то до меня, я оставляю модификацию, чтобы помочь им идентифицировать его.