Работа с текстовыми фаилами

[Drago56]

Помогите пожалуйста !Нужно текст,не содержащий собственных имён и сокращений,набранный полностью прописными русскими буквами. Заменить все прописные буквы,кроме букв,стоящих после точки,строчными буквами. И надо это сделать через - ТЕКСТОВЫЙ ФАИЛ .
Есть код задачи тока со строками нужно переделать ,чтобы тама выполнялось через текстовый фаил!
Кто умееть работать с текстовыми фаилами не должно затруднить это!

uses crt;
var
  s: string;
  i: integer;
  Begin
  writeln('Введите текст');
  ReadLn(s);
  i := 2;
  while i <= Length(s) do begin
    while ((s[i] <> '.') and (s[i] <> ' ')) do begin
      s[i] := chr(ord(s[i]) + 32);
      Inc(i);
      if i > Length(s) then break;
    end;
    if i > Length(s) then break;
    if s[i] = '.' then Inc(i);
    Inc(i);
  end;
  WriteLn(s);
  ReadLn;
end.