разработка программ с чтением и записью файлов различных типов

[Jalgas-xan]

Изменить программу (программа написана ниже), организовав чтение исходных данных с текстового файла dan.txt. Результат работы программы записать в текстовый файл result.txt.

var n,i:integer;p:longint;
begin
readln(n);
p:=1;
if (n=0)or(n=1) then writeln('1')
else
for i:=2 to n do
p:=p*i;
writeln(p);
end.

помогите пожалуйста!!!

[Stilet]

var n,i:integer;p:longint;
begin
assign(input,'dan.txt'); assign(output,'result.txt');
...