как сделать чтобы прога читала из файла и выводила в файл

[baris]

ребят как сделать чтобы прога читала сама данные из файла и выводила в файл.
вот условие:сколько можно купить быков, коров и телят, платя за быка - 10 руб, за корову - 5 руб, а за теленка - 0,5 руб, если на 100 рублей надо купить 100 голов скота.

вот прога:

var
byk,corova,telenok:byte;
b:boolean;
begin
byk:=0;
repeat
inc(byk);
until (((100-19*byk) mod 9)=0) or (byk=5);
if ((100-19*byk) mod 9)=0 then
begin
corova:=(100-19*byk) div 9;
telenok:=100-(Byk+corova);
if (byk*20+corova*10+telenok)=200 then
begin
b:=false;
writeln('byk-',byk);
writeln('corova-',corova);
writeln('telenoh-',telenok);
end;
end;
readln;
end.

[Impuls1989]

read/readln - чтение из файла
write/writeln - запись в файл
Все просто: http://tinyurl.com/3dyr9kl