составьте программу, которая :в строке "Я учусь в школе" заменяет слово

var
  s: string;

begin
  s:= 'Я учусь в школе';  //Присваиваем изначальное значение строковой переменной
  writeln(s);  //Печатаем изначальное значение
  Delete(s, 11, 5);  Устраняем из строчки s, начиная с 11 позиции 5 знаков (т.е. устраняем слово школа)
  Insert('10-м классе', s, 11);  Вставляем строчку '10-м классе' в строчку s, начиная с 11 позиции
  writeln(s);  //Печатаем получившуюся строку
end.

Program 1;
Uses CRT;
Var
s: String;
Begin
Writeln('Введите фразу');
read(s);
if (s='Я учусь в школе') then
writeln ('Я учусь в 10-м классе')
end.