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

[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.

[Serge_Bliznykov]

1) тему создали опять не в том разделе.

2) Вам задачу уже решили тут: Работа со строками [Паскаль]
добавить открытие файла и чтение из него - это вообще не задача - несколько строчек кода...

3) код надо форматировать с помощью тега CODE

итого.закрыто.