runtime error 2 в delphi

[Tina94]

Пишу программу в delphi 6, при запуске выдает "runtime error 2 at 00402E44" покопалась в факах, там пишут что причина в отсутствии файлов, но in0 и out0 существуют и уже лежат в папке.
Листинг:

Program semestr3;
type vp=record
sin,cos:real;
end;

type rp=record
p1,p2:array[1..100] of real;
end;

var
p:array[1..3] of vp;
pk:array[1..3]of rp;
i,j:integer;
q:vp;
m,r:integer;
in0,out0:text;
x:real;
function proizvod(v1:vp):vp;
var
per:vp;
begin
per.sin:=v1.cos*(-1);
per.cos:=v1.sin;

proizvod:=per;
end;

function sum(v1,v2:vp):vp;
begin
sum.sin:=v1.sin+v2.sin;
sum.cos:=v1.cos+v2.cos;
end;

function sum4(v1,v2,v3,v4:vp):vp;
begin
sum4.sin:=v1.sin+v2.sin+v3.sin+v4.s in;
sum4.cos:=v1.cos+v2.cos+v3.cos+v4.c os;
end;

begin
assign(in0,'input.txt');
assign(out0,'output.txt');
reset(in0);
rewrite(out0);


read(in0, r);
read(in0, m);
for i:=1 to 3 do
begin
for j:=1 to r do
read(pk[i].p1[j]);
for j:=1 to r do
read(pk[i].p2[j]);
end;

for i:=1 to 3 do
begin
p[i].sin:=0;
p[i].cos:=0;
end;

for i:=1 to 3 do
for j:= 1 to r do begin
p[i].sin:=p[i].sin+pk[i].p1[j];
p[i].cos:=p[i].cos+pk[i].p2[j];
end;

q:=proizvod(sum(sum4(p[1],proizvod(p[1]),p[2],proizvod(proizvod(p[2]))),proizvod(proizvod(proizvod(p[3])))));
q:=sum4(q,p[1],proizvod(proizvod(sum(proizvod(p[1]),p[2]))),proizvod(p[3]));


for i:= 1 to m do begin
read(in0,x);
writeln(out0,q.sin*sin(x)+q.cos*cos (x));
end;

close(in0);
close(out0);

end.

[IT-man]

а может переименовать sin,cos:real; хотя бы в sin1,cos1:real;

[Tina94]

Не помогло

[Kotofff]

на сами файлы in0 и out0 глянь.
ты их как объявляешь ? и как потом используешь ?
я про их типы в объявлении и использовании

[Tina94]

Не совсем поняла. Файлы создала ручками. Как я их объявляю и использую видно в исходниках.

[postal2]

delphi не всегда может находить файлы, которые лежат рядом с программой простым подцеплением и неабсолютным путём до них (извините, что криво выразился).Попробуйте

assign(...,extractfilepath(paramstr(0))+'inpit.txt');

должно помочь. Если логика программы в норме. А на какой строке ошибка?

[Somebody]

Сообщение от postal2

delphi не всегда может находить файлы, которые лежат рядом с программой простым подцеплением и неабсолютным путём до них

Так понимаю, следует читать, что папка, в которой находится программа, не всегда текущая.

[Alex Cones]

в которой находится программа, не всегда текущая.

Да, не всегда. Есть такое дело как ChangeCurrentDirectory. Также она меняется после использования диалогов. Узнать так же можно так: GetDir(0,Stroka);