Пока твоя программа делает полную хрень. Ткнули носом в бред, но видно не понял. Зачем вообще
ЭТО нужно:
Код:
...
assignfile(f,'c:\st.txt');
rewrite(f);
closefile(f);
for i := strtoint(edit2.Text) to strtoint(edit1.Text) do
begin
rewrite(f);
closefile(f);
...