Создание текстового файла, нахождение в нем и удаление определенной строки

Создать текстовый файл, состоящий из случайного количества (не более 30-и) строк. В каждой строке файла содержится случайное количество (не более 20-и) слов, разделенных пробелами. Каждое слово состоит из случайного количества (не более 8-и) строчных латинских букв. Найти в файле строку, содержащую наименьшее количество слов с двумя буквами ’a’, и удалить ее (если таких строк несколько, то удалить все).

есть начало кода:

var f,f1:Text;
N_lines,N_words,N_letters,i,j,k,Jmin,Jma x,Min:Byte;
N_5:Array[1..30] of Byte;
Ch:Char;
S:String;
begin
assign(f,'E:\XXX.txt');
rewrite(f);
assign(f1,'E:\YYY.txt');
rewrite(f1);
randomize;
N_lines:=20+random(11);
for i:=1 to N_lines do
begin
N_words:=random(20)+1;
for j:=1 to N_words do
begin
N_letters:=random(8)+1;
for k:=1 to N_symbols do
write(f,Chr(97+Random(26)));
if j<N_words then write(f,' ');
end;
writeln(f);
end;
close(f);

а как дальше?...подскажите кто нибудь...*_*

0