Включить в новую строку только заглавные буквы из строки S и заменить их на строчные

program tt;
uses crt;
var
  s1,s2:string;
  i:byte;
procedure LowCase(var s:string);
var i:byte;
begin
for i:=1 to length(s) do
if s[i] in ['A'..'Z'] then s[i]:=chr(ord(s[i])+32);
end;
begin
  ClrSCr;
  s1:='ABC*145*S!defgh1999IJK1mnopQrSTU345_-+=';
  s2:='';
  for i:=1 to length(s1) do
    if s1[i] in ['A'..'Z'] then
      s2:=s2+s1[i];
  LoWCase(s2);
  writeln(s2);
  readln;
end.

program tt;
uses wincrt;
const
  fname='c:\1.txt';
var
  s1,s2:string;
  i:byte;
  f:text;
procedure LowCase(var s:string);
var i:byte;
begin
for i:=1 to length(s) do
if s[i] in ['A'..'Z'] then s[i]:=chr(ord(s[i])+32);
end;
begin
  ClrSCr;
  assign(f,fname);
  rewrite(f);
  s1:='ABC*145*S!defgh1999IJK1mnopQrSTU345_-+=';
  s2:='';
  for i:=1 to length(s1) do
    if s1[i] in ['A'..'Z'] then
      s2:=s2+s1[i];
  LoWCase(s2);
  write(f,s2);
  close(f);
  writeln(s2);
  readln;
end.