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

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

Выкладывайте свои наработки - поможем, подскажем, исправим. Тем более, что задачка - пустяковая.

Вот я незнаю че ваще за "буквы нижнего регистра" а так то вроде не чего сложного

Это строчные буквы, они же маленькие. В отличие от букв верхнего регистра, которые иначе называются прописными или большими.

Ну у меня чтото такое получается ток не работает(
program lb8;
uses crt;
Var f,t:text;
s:string;
i,j:integer;
st:array[1..10] of string;

Begin
clrscr;
assign(f,'input.txt');
reset(f);
assign(t,'output.txt');
rewrite(t);
while not eof(f) do
Begin
readln(f,s);
if i:=0224 to 0255 then delete;
write(t,s[i]);
writeln(t);
End;
close(f);
close(t);
End.

Ну еще бы! А это, простите, на каком языке:
if i:=0224 to 0255 then delete; ?
Я таких языков программирования, извините, не знаю.

Сейчас я выложу свое решение Вашей задачи, но перед этим хочу мысленно послать все ненормативные проклятия авторам задачи и преподам. Черт побери, и далась им эта кириллица! Неужели нельзя было латиницей ограничиться? Теперь я вынужден представлять два варианта программы.
Для кодировки DOS:
Для кодировки Windows:

Спасибо огромное!
А вот это я написал "if i:=0224 to 0255 then delete; " от безысходности просто не чего от том как убрать буквы нижнего регистра в лекциях и в интернете я не нашел ну и пришлось сочинять=))