Tìm Max

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

var
        f1,f2:text;
        max,a,b,c:integer;
function TimMax(a,b,c:integer):integer;
        var max:integer;
        begin
        max:=a;
        if b>max then max:=b ;
        if c>max then max:=c;
        TimMax:=Max;
        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);
                        Max:=TimMax(a,b,c);
                        writeln(f2,Max)
                end;

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