Mój program cały czas pokazuje error.Pascal

Question

program granica
var 
x1,xn,dx,x,x_01,x_02,y_01,y_02: real;
i,n: integer;
begin 
    writeln('Podaj początkowy zakres dziedziny: ');
    readln(x1);
    writeln('Podaj końcowy zakres dziedziny: ');
    readln(xn);
    n := 1000                    //writeln('Podaj liczbę punktów: ');
    x1 := x1*100;
    x1 := round(x1);
    x1 := x1/100;
    
//y = 2x+3/2x-4
    if 2*x1-4 = 0 then exclude(x1);

    y1 := (2*x1+3)/(2*x1-4;
    dx := (xn-x1)/(n-1);
    x := x1 + dx;
    x := x*100;
    x := round(x);
    x := x/100;           // PYTHON -> x := round(x,2);
    writeln('1' + '	' + string(x1) + '		' + string(y1));

    for i := (n-1) do 
            if 2*x-4 = 0 then
                exclude(x);
                writeln(i+2,  'nie w dziedzinie');
            else
                y = (2*x+3)/(2*x-4);
                writeln('{}	{:.2f}		{:.2f}'.format(i+2,x, y));
            x = x + dx;
            x = round(x,2);
            
    writeln(wyk);
    x_01 = wyk[0]+0.001;
    x_02 = wyk[0]-0.001;

    y_01 = (2*x_01+3)/(2*x_01-4);
    y_02 = (2*x_02+3)/(2*x_02-4);

    writeln(x_01, y_01);
    writeln(x_02, y_02);
    
    writeln('Czy chcesz liczyc dalej? T lub N');
    readln(odp);
    until odp='N';
end.

Prawdopodobnie chodzi o zaokrąglanie jednak jak to zmieniałam to też ni chciało działać

Comments

10 linia brak średnika

    n := 1000;

ale tak chaotycznie napisany jest kod, ze nie jest to proste w odnalezieniu problemu. 

---

Czyli tylko to jest źle?

---

a to mój kod, czy twoj, a moze skopiowany od kogos? Nie wydaje mi sie ze jestes jego autorka zadajac takie pytanie

---

@julka1605, BTW, Ja tez nie piszę w Pascal-u, ale wydaje Mi się, że

Linia 1 brak średnika na końcu; program granica;

Linia 16 brakuje drugiego parametru dla exclude(x1, ?)

Linia 18 użycie niezadeklarowanej zmiennej y1

Linia 18 brakuje nawiasu )  y1 := (2*x1+3)/(2*x1-4);

Linia 24 a to co?  writeln('1' + ' ' + string(x1) ..., przecież writeln('1 ' + string(x1) ...  

Linia 26 brakuje zakresu for i := (n-1) to ? do

Linia 28 to samo co linia 16   exclude(x, ?);

Linia 36 użycie niezadeklarowanej zmiennej wyk

Linia 47 użycie niezadeklarowanej zmiennej odp

Linia 48 odwołanie do until ...; bez wcześniejszego użycia repeat

 

BTW, może ten zapis

writeln('1' + ' ' + string(x1) + '      ' + string(y1));

na taki zapis

writeln('1 ', x1:1:2, '      ', y1:1:2);