Free Pascal programos klaida

Sveiki, gal kas galėtu padėti surasti klaidą mano programoje. Programa turi pasiimti duomenis(a,b,c) iš tekstinio failo ir suskaičiuoti x1 ir x2 (diskriminanto budu). Pas mane programoje jei d<0 yra viskas gerai, bet jei sprendimas galimas yra išmeta klaida 6 Invalid file handle (If this happens, the file variable you are using is trashed; it indicates that your memory is corrupted). Tai gal kas galetų padėti. Ačiū

program Blablobas;

var a, b, c, d: integer;

x1, x2, f :real;

txt : text;

Begin

Assign(txt, 'C:\Users\Arnas\Desktop\a\blabla.txt');

Reset(txt);

Read(txt,a,b,c);

d:=(b*b)-(4*a*c);

if d>0 then begin

f:=SQRT(d);

x1:=((-b)+f)/(2*a);

x2:=((-b)-f)/(2*a);

Assign(txt, 'C:\Users\Arnas\Desktop\a\blabla.txt');

Append(txt);

Write(txt,'X1 yra-',x1,' ','X2 yra-',x2);

Close(txt);

end

else

if d=0 then begin

x1:=(-b)/(2*a);

Assign(txt, 'C:\Users\Arnas\Desktop\a\blabla.txt');

Append(txt);

Write(txt,'X1 yra-',x1);

Close(txt)

end

else

If d<0 then

Append(txt);

Write(txt, 'Sprendiniu nera');

Close(txt);

ReadLn;

end.

program Diskriminantas;

var a, b, c, d: integer;
x1, x2, f :real;
txt : text;
Begin
Assign(txt, 'Duomenys.txy');
Reset(txt);
Read(txt,a,b,c);
d:=(b*b)-(4*a*c);
if d>0 then begin
f:=SQRT(d);
x1:=((-b)+f)/(2*a);
x2:=((-b)-f)/(2*a);
Assign(txt, 'Duomenys.txt');
Append(txt);
Write(txt,'X1 yra-',x1,' ','X2 yra-',x2);
Close(txt);
end
else
if d=0 then begin
x1:=(-b)/(2*a);
Assign(txt, 'Duomenys.txt');
Append(txt);
Write(txt,'X1 yra-',x1);
Close(txt)
end
else
If d<0 then
Append(txt)else 
Write(txt, 'Sprendiniu nera');
Close(txt);

ReadLn;
end. 

Vis tiek meta tapačia klaidą.

Vis tiek meta tapačia klaidą.

O tai bent jau duomenų failo pavadinimą pakeitei? Ir kaip failą kūrei?

O tai bent jau duomenų failo pavadinimą pakeitei? Ir kaip failą kūrei?

Nu aš nucopinau tavo tekstą, susikūriau Duomenys.txt įvedžiau 1 -5 6 ( kad gautusi x1 ir x2).

Kur ne per new document, o per paskalį, new->ir ten topliau yra text document berodc.

Kur ne per new document, o per paskalį, new->ir ten topliau yra text document berodc.

Per paskali bandžiau kurti- tekstine rinkmena,įvedžiau duomenis tada išsaugojau, bet programoje vis tiek meta tapačia klaidą.

program Diskriminantas;

var a, b, c, d: integer;
x1, x2, f :real;
txt : text;
Begin
Assign(txt, 'Duomenys.txt');
Reset(txt);
Readln(txt, a,b,c);
d:=(b*b)-(4*a*c);
if d>0 then begin
f:=SQRT(d);
x1:=((-b)+f)/(2*a);
x2:=((-b)-f)/(2*a);
Append(txt);
Write(txt,' X1 yra- ', x1 ,' X2 yra- ', x2);
Close(txt);
end
else if d=0 then begin
x1:=(-b)/(2*a);
Append(txt);
Write(txt,' X1 yra- ',x1 );
Close(txt)
end
else if d<0 then    begin
Append(txt);
Write(txt, ' Sprendiniu nera');
Close(txt);
end;

ReadLn;end.

Ačiū, pagaliau veikia :)