Даны три квадратных уравнения

[allexey]

Даны три квадратных уравнения (ax^2+bx+c=0 , bx^2+ax+c=0 , cx^2+ax+b=0). Определить процедуру, позволяющую распознавать наличие вещественных корней в квадратном уравнении.

Вот у меня сделано практически всё, но что то не то, на экран выводится сразу 3 сообщения Введите элементы квадратного уравнения, а надо чтобы постепенно, ввёл элементы, и следующее появилось. и чтоб вот на каждом выводилось сообщение, а вот на 2 вводе выводит true, перед этим пропадает окно, и это сообщение уже видно перед следующим запуском программы. вообще, исправьте программу пожалуйста.


Program pr5;
var a1,b1,c1,d:real;f:boolean;
i:byte;
procedure kvad(a,b,c: real; var res:boolean);
begin
res:=sqr(b) - 4*a*c>=0;
end;
begin
for i:=1 to 3 do
Writeln('Введите элементы квадратного уравнения');
readln(a1,b1,c1);
kvad(a1,b1,c1,f);
if d<0 then writeln('Нет действительных корней') else
if d=0 then writeln('1 действительный корень') else
if d>0 then writeln('2 действительных корня');
begin
readln(a1,b1,c1);
kvad(a1,b1,c1,f);
writeln(i);
end;
readln
end.

[Хыиуду]

for i:=1 to 3 do - добавить begin
begin
readln(a1,b1,c1);
kvad(a1,b1,c1,f);
writeln(i);
end;
Этот кусок убрать целиком, вместо него end