Имеется программа, слова для замены берутся из файла, что изменить чтобы для замены писать свое предложение в консоли

program Project3_ready;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
 
const
  
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
 
  M = 1;
  cFn1 = 'file1.txt'; 
  cFn2 = 'file2.txt'; 
var
  F1, F2 : Text;
  S, Sw, Fn1, Fn2 : String;
  Arr1, Arr2 : array[1..M] of String;
  i, j, Len, LenW, Cnt : Integer;
begin
 
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  Fn1 := ExtractFilePath(ParamStr(0)) + cFn1;
  Fn2 := ExtractFilePath(ParamStr(0)) + cFn2;
 
  repeat
    Writeln('Файл с исходным текстомì: ', Fn1);
    Writeln;
    Writeln('Задайте слова, которые нужно заменить');
    i := 0;
    repeat
      Write('Ñëîâî ', i + 1, ': ');
      Readln(S);
      if S <> '' then begin
        Inc(i);
        Arr1[i] := S;
      end;
    until (S = '') or (i = M);
    Cnt := i;
 
    Writeln('Задайте слова на которые нужно заменить.');
    i := 0;
    repeat
      Write('Ñëîâî ', i + 1, ': ');
      Readln(S);
      if S <> '' then begin
        Inc(i);
        Arr2[i] := S;
      end;
    until (S = '') or (i = M);
 
    if i < Cnt then Cnt := i;
    Writeln('Количество пар для замены: ', Cnt);
    if Cnt = 0 then begin
      Writeln('Пары не заданы. Действие отменено.');
      Readln(S);
      Continue;
    end;
 
    AssignFile(F1, Fn1);
    AssignFile(F2, Fn2);
    Reset(F1);
    Rewrite(F2);
    while not Eof(F1) do begin
      Readln(F1, S); 
      Len := Length(S);
      LenW := 0; 
      
      for i := Len downto 1 do
        if not (S[i] in D) then begin 
          Inc(LenW); 
          if (i = 1) or (S[i - 1] in D) then begin 
            Sw := Copy(S, i, LenW); 
           
            j := 1;
            while (j <= Cnt) and (Sw <> Arr1[j]) do Inc(j);
            if j <= Cnt then begin
              Delete(S, i, LenW); 
              Insert(Arr2[j], S, i); 
            end;
            LenW := 0;
          end;
        end;
      Writeln(F2, S);
    end;
    CloseFile(F1);
    CloseFile(F2);
 
    Writeln('Текст обработан. Результат записан в файл: ', Fn2);
    Writeln;
    Readln(S);
  until S <> '';
end.

program Project1;
 
const
{Множество разделителей.}
D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
{Наибольшее количество слов для замены.}
M = 1;
Fn1 = 'file1.txt'; {Имя файла с исходным текстом.}
Fn2 = 'file2.txt'; {Имя файла с обработанным текстом.}
var
F1, F2 : Text;
S, Sw : String;
Arr1, Arr2 : array[1..M] of String;
i, j, Len, LenW, Cnt : Integer;
begin
repeat
Writeln('Файл с исходным текстом: ', Fn1);
Writeln;
Writeln('Задайте слова, которые надо заменить. Ввод каждого слова завершайте');
Writeln('нажатием клавиши Enter. Прекратить ввод - пустая строка + Enter.');
i := 0;
repeat
Write('Слово ', i + 1, ': ');
Readln(S);
if S <> '' then begin
Inc(i);
Arr1[i] := S;
end;
until (S = '') or (i = M);
Cnt := i;
 
Writeln('Задайте слова, на которые надо заменить. Правила ввода такие же.');
i := 0;
repeat
Write('Слово ', i + 1, ': ');
Readln(S);
if S <> '' then begin
Inc(i);
Arr2[i] := S;
end;
until (S = '') or (i = M);
 
if i < Cnt then Cnt := i;
Writeln('Количество пар для замены: ', Cnt);
if Cnt = 0 then begin
Writeln('Пары не заданы. Действие отменено.');
Writeln('Повторить - Enter. Выход - любой символ + Enter.');
Readln(S);
Continue;
end;
 
Assign(F1, Fn1);
Assign(F2, Fn2);
Reset(F1);
Rewrite(F2);
while not Eof(F1) do begin
Readln(F1, S); {Читаем строку из входного файла.}
Len := Length(S);
LenW := 0; {Длина очередного выделенного из строки слова.}
{Перебор символов строки справа - налево.}
for i := Len downto 1 do
if not (S[i] in D) then begin {Если текущий символ не является разделителем.}
Inc(LenW); {Учитываем текущий символ в длине слова.}
if (i = 1) or (S[i - 1] in D) then begin {Отслеживаем начало слова.}
Sw := Copy(S, i, LenW); {Выделяем очередное слово.}
{Определяем индекс заменяемого слова.}
j := 1;
while (j <= Cnt) and (Sw <> Arr1[j]) do Inc(j);
{Если индекс найден, т. е., если слово является заменяемым, то выполняем
замену. - Прежнее слово удаляем и вставляем на его место новое.}
if j <= Cnt then begin
Delete(S, i, LenW); {Удаляем слово.}
Insert(Arr2[j], S, i); {Вставляем замену.}
end;
LenW := 0;
end;
end;
Writeln(F2, S); {Записываем обработанную строку в выходной файл.}
end;
{Закрываем файлы.}
Close(F1);
Close(F2);
 
Writeln('Текст обработан. Результат записан в файл: ', Fn2);
Writeln;
 
Writeln('Повторить - Enter. Выход - любой символ + Enter.');
Readln(S);
until S <> '';
end.