Determinare tip triunghi

>Se citesc 3 numere a, b, c din fisierul triunghi.txt si se determina tipul de triunghi format.

program triunghi;
var f:text;
    a,b,c:integer;
begin
     assign(f,'triunghi.txt');reset(f);
     while not eof(f) do begin
           readln(f,a,b,c);
           if (a>0) and (b>0) and (c>0) and (b+c>a) and (a+b>c) and (a+c>b) then begin
           if (a=b) and (b=c) then writeln('triunghiul este echilateral')
                    else if (a=b) and (b=c) then writeln('triunghiul e iso')
                    else writeln('triunghiul e oarecare');
                   end
           else writeln('nu e triunghi');
           end;
     close(f);
     readln;
end.
{PascalZone.evonet.ro}