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

Const
  s=информатика;
var
  s1:string;
begin
  s1:=s; Delete(s1,1,2); Delete(s1,7,3);
  Writeln(s1);
  s1:=s; Delete(s1,1,1); Delete(s1,2,1); Delete(s1,3,3); Delete(s1,4,2);
  Writeln(s1)
end.