Вывод результата блоками

[nervniy]

подскажите как вывести результат вычисления функции блоками по 25 строк с промежуточной паузой???

x:=1;
while x<=12 do begin
y:=1;
while y<=12 do begin
p:=2;
while p<=6 do begin
z:=(sqr(x)+sqr(y)*y+p*sin(p))*(sqr(p)*p+sqr(sin(x))+2*sqr(y)-4*sin(p))/
(2*sqr(p)*p+sqrt(x*y)+x*sqr(cos(y))-2*sqr(p)+y*x-2*sqr(p)*p+1);
p:=p+pd;
end;
y:=y+yd;
end;
x:=x+xd;
end;

[Вадим Мошев]

1. Подключить модуль CRT; (uses crt
2.

{... что-то там выводим какие-то 25 строк ляляля}
readKey

Таким образом, через каждые выведенные 25 строк программа будет ожидать нажатия клавиши Enter...