Pascalban azonnal bezár az írt program, így nem tudom leolvasni az eredményeket. Mit csináltam rosszul?

Házit próbálnék csinálni, de nem működik. Írni kellett egy másodfokú megoldót telepakolva iffel. Bezárt, azt hittem, hogy alapjaiban véve rossz, ezért írtam egy nagyon leegyszerűsített változatot, de ugyanúgy bezár, mielőtt elolvashatnám..

Itt a forráskód:

program masodfoku2;

{$APPTYPE CONSOLE}

uses SysUtils;

var a, b, c, d :byte;

begin

writeln('Redukalja 0-ra az egyenletet, majd adja meg ilyen formaban: ');

writeln(' ');

writeln('ax^2 + bx + c');

writeln(' ');

write('a: '); read(a);

write('b: '); read(b);

write('c: '); read(c);

d:=sqr(b)-4*a*c;

if d>0 then writeln('Az egyenletnek nincs megoldasa a valos szamok halmazan')

else

begin

writeln('X1= ', (-b+sqrt(d))/(4*a));

writeln('X2= ', (-b-sqrt(d))/(4*a));

end;

end.