Составить программу которая получает из слова «делфи» слово «дело» и «лифт».

begin
  var s: string := 'ДЕЛФИ';
  //readln(s);
  writeln(s[1] + s[2] + s[3] + 'O');
  writeln(s[3] + s[5] + s[4] + 'T');
end.