Обработчик базы на паскале

[Айдар]

Привет всем, помогите создать обработчик базы данных (baza.txt) артистов.
База такого вида

Acoustic Alchemy
Dead Poetic
AC DC
3 Doors Down
Avenged Sevenfold
Epica
The 69 Eyes
Edguy
The Seatbelts
Dark Moor
Dio
Alizee
Europe
BONNIE PINK
Дюжино
Saпan Supa Crew

Нужно удалить все русское (Дюжино, Saпan Supa Crew), и удалить пустые строки, база должна выглядеть вот так:

Acoustic Alchemy
Dead Poetic
AC DC
3 Doors Down
Avenged Sevenfold
Epica
The 69 Eyes
Edguy
The Seatbelts
Dark Moor
Dio
Alizee
Europe
BONNIE PINK

[ОДИНОЧЕСТВО В СЕТИ]

помогите

чем помочь то?
что у вас не получается?

[Айдар]

щас я пишу, но если будут вопросы, далеко не уходите))

[Айдар]

что-то он мне открывает а там данных нету, хотя я их туда записал,

program baza;
var
f:text;
fn:string;
art:string;
begin
fn:='baza.txt';
assign (f,fn);
reset (f);
readln (f);
close (f);
readln;
end.

[ОДИНОЧЕСТВО В СЕТИ]

выкидываем вот это

readln (f);
close (f);

и пишем

while not eof(f) do begin
readln(f,art);
writeln(art);
end;
close(f);

[Айдар]

О заработало теперь надо сделать, поиск и удаление всего русского, я так понял так
while not eof(f) do begin
if art:= 'a'..'п' or 'р'..'я' then delete (art)? так или подругому надо
Такой вопрос а как удалить пустую строку?

[ОДИНОЧЕСТВО В СЕТИ]

delete (art)

так не удалить надо либо считывать построчно в массив либо считывать и записывать в новый файл!

if art:= 'a'..'п' or 'р'..'я'

правильно будет так

for i:=1 to length(art) do
if not (art[i] in['А'..'п' , 'р'..'я']) then fb :=false;
if fb then записываем в новый файл/массив

[Айдар]

немного не понял, можно это расписать if f then записываем в новый файл/массив

[ОДИНОЧЕСТВО В СЕТИ]

описываем еще одну переменную

 f1:text;fb:boolean

пишем перед циклом while

assign(f1,'new text');
rewrite(f1);
while not eof(f) do begin
fb:=true;
....
if fb then writeln(f1,art);
...
end;
close(f1);

[Айдар]

блин ниче не получается(((