работа с файлами

uses crt;
const rb=['А'..'п','р'..'ё'];//все русские буквы
procedure Convert1(var a:string);{AMSI->ASCII при чтении из файла}
var i:integer;
begin
for i:=1 to length(a) do
if ord(a[i]) in [192..239] then a[i]:=chr(ord(a[i])-64)
else if ord(a[i]) in [240..255] then a[i]:=chr(ord(a[i])-16)
else if ord(a[i])=168 then a[i]:=chr(ord(240))
else if ord(a[i])=184 then a[i]:=chr(ord(241));
end;
procedure Convert2(var a:string);{ASCII->ANSI при записи в файл}
var i:integer;
begin
for i:=1 to length(a) do
if ord(a[i]) in [128..175] then a[i]:=chr(ord(a[i])+64)
else if ord(a[i]) in [224..239] then a[i]:=chr(ord(a[i])+16)
else if ord(a[i])=240 then a[i]:=chr(ord(168))
else if ord(a[i])=241then a[i]:=chr(ord(184));
end;
var f,g:text;
    s:string;
begin
clrscr;
{Создание нового файла}
assign(f,'file1.txt');//существующий файл лежит в папке с программой
reset(f);//откроем для чтения
assign(g,'file2.txt');//новый файл тоже в паку кинем
rewrite(g);//откроем для записи
while not eof(f) do
 begin
  readln(f,s);//читаем строку
  convert1(s);//пребразуем в Паскаль
  if s[1] in rb then//если первая буква русская
   begin
    convert2(s);//преобразуеим в Вин-кодировку
    writeln(g,s);//запишем в новый файл
   end;
 end;
close(f);//закроем файлы
close(g);
write('Строки, начинающиеся с русских слов переписаны в файл FILE2');
readln
end.