(Делфи) Текстовые файлы

[Doublefaced]

Написал код, но где - то ошибка помогите исправить.

Дан файл, содержащий текст, включающий в себя русские и английские слова. Получить новый файл, заменив в исходном все заглавные буквы строчными и наоборот.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var
  s:string;
  f,f3:text;
  pb:char;
  i:integer;
begin
  assign(f,'lab.txt');
  reset(f);
  assign(f3,'lab1.txt');
  rewrite(f3);
 while not eof(f) do
begin
s:='';
readln(f,s);
for i:=1 to length(s) do
if s[i] in ['A..Z'] then s[i]:=chr(ord(s[i]+32)
writeln(f3,s);
end;
close(f,f3);
writeln("File lab1 rewrite");
writeln;
readln;
end.

[Stilet]

Можно через AnsiLowerCase AnsiUpperCase изменять заглавность.

if s[i] in ['A..Z'] then s[i]:=AnsiLowerCase(s[i]) 
 else s[i]:=AnsiUpperCase(s[i])

[Doublefaced]

Блин сейчас ошибка с типами.