Напиши задачу - считывание и редактирование файла

[Werus_]

Плиз
Задание
Считать текстовый файл, переведя все буквы русского алфавита в верхний регистр

[Tkirill]

uses crt;
var
i:integer;
fil:text;
s:string;
begin
clrscr;
assign(fil,'c:\in.txt');
reset(fil);
while not eof(fil) do
begin
readln(fil,s);
for i:=1 to length(s) do
if s[i] in ['а'..'я'] then s[i]:=upcase(s[i]);
writeln(s);
end;
close(fil);
readln;
end.