Вопрос по ЭВМ Паскаль

Вопрос по ЭВМ Паскаль.
Program tabulacia;
uses crt;
const
dx=7; dmx=4; x1=-2.7; x2=2.3;
dy=7; dmy=4; ogp=1;
h=0.025;
cols=2;
lines=25;
var x, p, y: real;
i,j,k : integer;

procedure line(dx,dy :integer);
{«Ё­Ёп Ї®¤зҐаЄЁў ­Ёп}
var i : integer;
begin
write('!');
for i:=1 to dx+6 do
write('-');
write('!');
for i:=1 to dy+6 do
write('-');
write('!');
end;

begin
x:=0;
y:=0;
p:=0;

repeat
clrscr;
writeln('‚ўҐ¤ЁвҐ §­ зҐ­ЁҐ Ї а ¬Ґва , ¬®¤г «м Є®в®а®Ј® Ў®«миҐ ', ogp );
readln(p);
until (abs(p)>ogp);

k:=1;
x:=x1;
while ((x>=x1) and (x< =x2)) do
begin
clrscr;
writeln('‘ва ­Ёж  ',k);
readln;
readln;
for j:=1 to cols do
line(dx,dy);
writeln;
writeln ('! ЂаЈг¬Ґ­в ! ”г­ЄжЁп !! ЂаЈг¬Ґ­в ! ”г­ЄжЁп !');
for j:=1 to cols do
line(dx,dy);
writeln;
i:=1;
while (i< =lines) do
begin
j:=1;
while (j< =cols) do
begin

if exp(7*ln(x))< =exp(1/p) then y:=ln((pi+sqr(x)*sqr(p))/(arctan(sqr(p))))/ln(10) else y:=exp((1/3)*ln(x*2+abs(p)));
write('! ', x:dx:dmx,' ! ',y:dy:dmy,' !');

j:=j+1;
x:=x+h;
end;
writeln;
for j:=1 to cols do
line(dx,dy);
writeln;
i:=i+1;
end;
writeln('ENTER');
readln;
k:=k+1;
end;
readln;
end.

Работаю на Паскале.
Должно выводить таблицу аргументов и функции, а он просто очищает экран.

  • Нечто жуткое. Проще написать сначала. Где условие?