Создайте программу,которая а) к строке "край озёр" добавляет строку "лесов и рек" б)в строке "я учусь в школе" заменяет "в школе" на "в 10-ом классе"

Var
  s, ans: string
begin
  s := 'Край озёр';
  ans := s + ', лесов и рек.';
end.

var
  s, ans: string;
begin
  s := 'Я учусь в школе';
  delete(s, 9, 7);
  ans := s + 'в 10-ом классе.'
end.