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

Женечка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.
Помогите исправить
2 ответа

Женечка92

readln(ff,n);
Вообще непонятна данная строка...
for i:=0 to lenght(s) do
Зачем цикл? Используйте POS если результат 0 то символа нет если не 0 то символ есть... А куда вы хотите сохранить результат?


Женечка92

результат нужно в итоге сохранять в текстовый файл.. вы не могли бы написать исправленный код для данного задания??