Need help determining programming language and adding text to code

Does anyone know what language this is? It is embedded within our ERP system. I need to add the word Symptoms above Reason for removal.

begin

IF
   WO_SYMPT_FAUL_ACT['SFA_TYPE'] = 'Symptoms' then 
begin

  Text := 'REASON FOR REMOVAL:';
end
else if
    WO_SYMPT_FAUL_ACT['SFA_TYPE'] = 'Faults' then 
begin

  Text := 'FAULT:';
end 
else if
    WO_SYMPT_FAUL_ACT['SFA_TYPE'] = 'Actions' then 
begin

  Text := 'TESTED WITHIN MFG SPECS:';
end 
else
begin
  Text :=  WO_SYMPT_FAUL_ACT['SFA_TYPE']
end;
end;

Select allOpen in new window

code.JPG
symptoms.JPG