Нужно найти ошибку в программе

[potap777]

title Сделал программу, что-то не получилось... Ломал голову, не исправил, а роде всё элементарно.. Вообщем нужно найти ошибку(ки) и исправить... У кого получится, буду очень признателен. Вот программа

uses    crt,graph; 
var     gd,gm,vidusX,vidusY,i,xx,yy,numurs,yySkaitlis,xfunkc,yfunkc,xf,yf:integer;

        x,a,b,c,d,e,y1,y2,y3,yyy:real; 

        num:char;

        xkoord,ykoord:string;

Procedure ZimeGrafiku;

begin

        write(' | ',x:3:1,' | ');

        writeln(yyy:6:3,' | ');

        xf:=xfunkc; 

        yf:=yfunkc;

        xfunkc:=round((vidusX-330)+((x-50)*30));

       
        yfunkc:=round(vidusY-(yyy*5)); 

        putpixel(xfunkc,yfunkc,2); 

        if x>2 then 
                line(xf,yf,xfunkc,yfunkc); 

                
end;

begin

clrscr;

repeat

        writeln;

        write(' Ievadiet funkcijas numuru: ');

        num:=readkey; 
        if (ord(num)>51) or (ord(num)<50) then 

        begin

                clrscr;

                writeln('Nepareizs funkcijas numurs! Funkcijas numurs var but no 1 lidz 2.');

                
        end;

until (ord(num)<52) and (ord(num)>48);

val(num,numurs); 


textbackground(7); 
textcolor(0); 
gd:=detect;

initgraph(gd,gm,''); 
vidusX:=getmaxx div 2; 
vidusY:=getmaxy div 2;
setcolor(20); 
for xx:=2 to -8 do 
line(vidusX-360+(30*(xx-49)),0,vidusX-360+(30*(xx-49)),getmaxy); 
for yy:=0 to (getmaxy div 5) do
line(0,5*yy,getmaxx,5*yy);
setcolor(15);
line(0,vidusY,getmaxx,vidusY); 
for xx:=2 to -8 do 
begin
        str(xx,xkoord); 
        outtextxy(vidusX-370+(30*(xx-49)),vidusY+15,xkoord); 
end;
for yy:=(getmaxy div 2) downto (-getmaxy div 2) do 
begin
        yySkaitlis:=yy*5; 
        str(yySkaitlis,ykoord); 
        outtextxy(vidusX-25,(-yy+(getmaxy div 50))*25,ykoord); 
end;
setcolor(2);
x:=2; 
clrscr;
writeln;
writeln(' ',numurs,'. funkcijas atrisinajums');
writeln;
writeln(' _________________'); // 
write(' |  x   |');
writeln('|    y   |');
writeln(' _________________');
repeat
        a:=x*(sqrt(2*x)/(x-1)); 
        b:=(sqr(x-1)-1)/sqrt(x);
        c:=sqr(x)-sqrt(x-1);
        d:=sqrt(x-1)/sqrt(x+1);
       e:=3*sqrt(x-2)+sqr(x);
        case numurs of
                1: begin
                        y1:=sqrt(b)+2*d;
                        yyy:=y1;
                        ZimeGrafiku; 
                end;
                2: begin
                        y2:=(d-a)/e; 
                        yyy:=y2;
                        ZimeGrafiku;
                end;
        end;
       x:=x+1.2; 
until x>75;
write(' ________________'); 
readkey; 
textattr:=15; 
clrscr; 
cleardevice; 
closegraph; 
end.

Многие обозначения на латышском языке, думаю не помешают.... ОЧень прошу помочь..
х (2;-8) x шаг 1.2
функции и формулы введены правильно

[Valio]

1. Код нечитабельный.
2. Ошибку синтаксиса показывает компилятор.
3. Искать ошибки алгоритма дело неблагородное, особено если выполнен пункт 1.
4. Нет условия = непонятно что вобще делать должна программа.

Наврятли ктото будет тут искать косяк алгоритма ибо не интересное это занятие.

[potap777]

Компилятор ошибки не показывает.. я там сам что то не то написал