Tìm Min

Đề bài: Tệp dl.txt gồm nhiều dòng, mỗi dòng chứa ba số nguyên dương.Hãy đọc dữ liệu từ tệp và tìm giá trị nhỏ nhất.Ứng với mỗi dòng kết quả .ghi Vào tệp kq.txt

var
        f1,f2:text;
        min,a,b,c:word;
function TimMin(a,b,c:word):word;
        var min:word;
        begin
        min:=a;
        if b<min then min:=b ;
        if c<min then min:=c;
        TimMin:=min;
        end;
begin
        assign(f1,'dl.txt');reset(f1);
        assign(f2,'kq.txt');rewrite(f2);
        while not eof(f1) do
                begin
                        read(f1,a);read(f1,b);readln(f1,c);
                        min:=TimMin(a,b,c);
                        writeln(f2,min)
                end;

        close(f1);close(f2);
end.