Дано 2 строки символов S1 и S2.. Описать процедуру, заменяющую в тексте слова «Математика» на «Информатика». Применить процедуру для строк S1 и S2 — Pascal(Паскаль)

program Project1;
 
procedure Replace(var aStr : String; const aSub, aRpl : String);
var
  Pos1 : Integer;
begin
  repeat
    Pos1 := Pos(aSub, aStr);
    if Pos1 > 0 then begin
      delete(aStr, Pos1, Length(aSub));
      insert(aRpl, aStr, Pos1);
    end;
  until Pos1 = 0;
end;
 
const
  mat='математика';
  inf='информатика';
 
var
  s1, s2, StrTmp : string;
begin
  repeat
    writeln ('Введите первую строку');
    readln (s1);
    writeln ('Введите вторую строку');
    readln (s2);
    Replace(s1, mat, inf);
    Replace(s2, mat, inf);
    WriteLn(s1);
    WriteLn(s2);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    readln (StrTmp);
  until StrTmp <> '';
end.