создание файла,и запись в другой файл

[shalgan]

доброго времени суток, столкнулся с проблемой , делфи выдает ошибку "[Hint] Unit1.pas(39): Variable 'g' is declared but never used in 'TForm1.Button1Click'"
вот код

procedure TForm1.Button1Click(Sender: TObject);
type
rec=record
day:string[2];
month:string[2];
year:string[4];
end;
var
v:rec;
f:textfile;
g:textfile;
n,i:integer;
begin
n:=memo1.lines.count-1;
assignfile(f,'C:\shalgan\f1.txt');
rewrite(f);
for i:=0 to (n-1) do begin
v.day:=string(memo1.lines[i]);
v.month:=string(memo2.Lines[i]);
v.year:=string(memo3.Lines[i]);
writeln(f,v.Day, v.Month, v.year);end;
end;
assignfile(g,'C:\shalgan\f1.txt');
rewrite(g);
while not eof (f) do
begin
read(f,v);
if (v.month='03')
or (v.month='04')
or (v.month='05')
then writeln (g,v.day,'.',v.month,'.',v.year);
end;
closefile(f); closefile(g);
end;
end.

По возможности помогите исправить ошибки задание"Создать файл f, содержащий различные даты, для каждой даты указать число, месяц и год. С помощью другой программы найти все весенние даты и сохранить их в другом файле g."

[p51x]

делфи выдает ошибку

Это не ошибка

writeln(f,v.Day, v.Month, v.year);end;
end;

а не лишний ли тут энд?..

[shalgan]

Сообщение от p51x

Это не ошибка

writeln(f,v.Day, v.Month, v.year);end;
end;

а не лишний ли тут энд?..

тааакс,да,лишний был, теперь [Error] Unit1.pas(54): Illegal type in Read/Readln statement, вместо read что употребить здесь?

[shalgan]

Сообщение от p51x

Это не ошибка

writeln(f,v.Day, v.Month, v.year);end;
end;

а не лишний ли тут энд?..

и в одной процедуре работать с двумя файлами можно вообще? или лучше добавить еще одну кнопку боттом и там сделать вторую часть задачи?

[p51x]

вместо read что употребить здесь?

он и нужен, только разберитесь, что читаете - файл текстовой, а читаете структуру

и в одной процедуре работать с двумя файлами можно вообще?

хоть с 10ю

или лучше добавить еще одну кнопку боттом и там сделать вторую часть задачи?

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

[shalgan]

Сообщение от p51x

он и нужен, только разберитесь, что читаете - файл текстовой, а читаете структуру


хоть с 10ю


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

яж написал в теме :D ""Создать файл f, содержащий различные даты, для каждой даты указать число, месяц и год. С помощью другой программы найти все весенние даты и сохранить их в другом файле g."