ЭВМ в чем ошибка?

ЭВМ в чем ошибка?
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);
writeln('Exit');
readln;
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.

  • Ниасилил! (((
  • Надо догадатся где ошибка, да?
  • Вопросы по коду задаются исключительно в форме:
    1. Условие (что надо сделать) . Нельзя проверить корректность кода, не зная, что он должен делать.
    2. Код (это у тебя есть) , желательно на pastebin.com . И желательно минимальный пример, содержащий проблему.
    3. Описание проблемы. Не "в чем ошибка? ", а конкретно - в каком именно месте, какого результата ожидаешь, а что выходит, текст ошибки и т. д.
    Еще желательно указывать язык и компилятор.

    А так, как ты спросил, правильный ответ будет такой: убери весь код, кроме
    begin
    end.
    и все заработает. Правда, не так, как ты хотел.. . но ты же с нами не захотел поделиться этим знанием.