Задана строка s=»Bios is Basic Input-Output System». Получить на основе ее новую строку путем замены всех заглавных латинских букв на соответствующие им строчные. Найти число символов «t» в строке s. Результаты программы вывести в файл — Pascal(Паскаль)

uses crt;
const s:string='Bios is Basic Input-Output System';
var s1:string;
    i,k:byte;
begin
clrscr;
s1:='';
for i:=1 to length(s) do
  begin
    if s[i] in ['A'..'Z'] then s1:=s1+chr(ord(s[i])+32){переводим прописные беквы в строчные через их код и вписываем в новую строку}
    else s1:=s1 +s[i];{вписываем остальные}
    if s[i]='t' then k:=k+1;{считаем буквы t}
  end;
writeln(s1);
write('Kol bukv t=',k);
readln
end.