В чем ошибка??? :( исправьте если можете

[Женечка92]

для защиты лабораторной дали задание:
есть файл, содержащий текст. удалить из него все строки, которые хотя бы один раз содержат букву а. При выведении результата и его сохранении нельзя использовать поле Мемо.
я написала, сказал все не правильно. ВОТ:
var Form1:Tform1;
ff:Textfile;
n,m: integer
implemenation
Procedure TForm1.Button1Click
var
a:integer;
si:stringlist;
str,s:string;
begin
if OpenDialog1.Execute then
begin
AssignFile(ff,OpenDialog1.Filename) ;
Reset(ff);
readln(ff,n);
end;
while net eof(ff) do
begin
readln(ff,s)
for i:=0 to lenght(s) do
begin
if s[i]<>'a' then
begin
with TSaveDialog.Create(owner) do
begin
str:=' ';
DefaultExt:= 'txt';
Filter:= '*.txt l *.txt';
if not Execute then Exit;
si:= TStringList.Create;
si.Add(' ');
for q:=0 to lenght (s) do
str:= str+s+#0;
si.Add(Str);
end;
si.SaveToFile (Filename);
end;
si.Free;
end;
end;
end. Помогите исправить

[DoDge_VipeR]

while nоt eof(ff) do

[Женечка92]

это я здесь ошиблась... у меня о была.. не в этом ошибка...with TSaveDialog.Create(owner) do он сказал эту строку не понимает, и сказал что программа не будет выполнять задание это по такому коду... сказал сделать теперь не только код, а всю программу

[DoDge_VipeR]

сказал сделать теперь не только код, а всю программу

сделаю быстро и недорого! обращайтесь

[Женечка92]

недорого это сколько??