Введите произвольное количество строк с клавиатуры, затем выведите во внешний файл символы этих строк, кроме заглавных букв латинского алфавита- Pascal(Паскаль)

program Project1;
 
const
  D = ['A'..'Z'];
  Fn = 'result.txt';
var
  F : Text;
  S : String;
  i : Integer;
begin
  Assign(F, Fn);
  Rewrite(F);
  repeat
    Writeln('Введите строку:');
    Readln(S);
    for i := Length(S) downto 1 do
      if S[i] in D then Delete(S, i, 1)
    ;
    Writeln(F, S);
    Writeln('Продолжить ввод - Enter, прекратить - любой символ + Enter');
    Readln(S);
  until S <> '';
  Close(F);
 
  Writeln('Результаты представлены в файле: ', Fn);
  Readln;
end.