Записать результат в файл Опции

[BND]

Привет. Я решил одну задачку на паскале, как мне записать получившиеся ответы в файл ?
То есть у меня вот выводится ответ на экран, а как потом еще эти данные в файл записать ?

if s1=s2 then Writeln('s1=',s1,' s2=',s2)

[Bard]

var
f: Text;

// ...
assign(f, 'text.txt');
rewrite(f);
writeln(f, 's1 = ', s1, ' s2 = ', s2);
close(f);

а помоему есть более удобный вариант без объявлния переменной f(text file)...
вот он:

var 

// ...
assign(output, 'text.txt'); {...если входной файл то input}
rewrite(output);
writeln('s1 = ', s1, ' s2 = ', s2);
close(output);