Не могу понять, в чем ошибка???File not found

[semechKO]

  var
  a,b,n,i,c,d,min,imin:integer;
  begin
  assign(input,'input.txt');
  assign(output,'output.txt');
  reset(input);
  rewrite(output);
  read(n,a,b);
if(a<=100)and(a>=1)and(n<=100)and(n>=1)and(b>=1)and(b<=100) then
imin := -1;
min :=1000;
for i:=1 to n do begin
read(c,b);
if(c<=100)and(c>=1)and(d<=100)and(d>=1)then
if (a*c+b*d<min) then begin
imin :=i;
min:=a*c+b*d;
end;
end;writeln(imin);
end.

Пишет :Error 2: File not found, хотя файл лежит в той же папке, что и программа.С путем пробовал, та же тема.

[VIK_aka_TOR]

добавь к объявлению переменных строчку:

input, output : text;

вроде как так пишется... тобишь тебе нужно предварительно объявить эти переменные которые связываешь с файлами...

[semechKO]

не помогло, все равно не находит.

[VIK_aka_TOR]

а что собственно делает программа?... и файлы же у тя на данный момент не используются... лично у меня все находит... если названия верны в проге и в папке... то стоит задуматься нас самим паскалем... глюки или подобные штуки... словом... проблемы на вашей стороне...

[semechKO]

юди часто сталкиваются с проблемой выбора наиболее подходящего тарифного плана у операторов сотовой связи. Для помощи им в этом необходимо написать программу, находящую оптимальный тарифный план с точки зрения минимизации затрат. Известно, что в месяц человек посылает A смс-сообщений и разговаривает по мобильному телефону в течении B минут. Есть N тарифных планов, для каждого из которых известна стоимость отправки одного смс-сообщения и одной минуты разговора. Требуется найти тарифный план, при подключении к которому суммарные затраты в месяц будут минимальны. 

Формат входного файла 
В первой строке входного файла Input.txt находятся три целых числа N, A, B (1 ≤ N, A, B ≤ 100). Следующие N строк входного файла содержат по два целых числа Ci и Di (1 ≤ Ci, Di ≤ 100) — стоимость отправки одного смс-сообщения и стоимость одной минуты разговора. 

Формат выходного файла 
В выходной файл Output.txt требуется вывести номер искомого тарифного плана. Тарифы пронумерованы в порядке появления во входном файле. Если оптимальных ответов несколько, выведите любой.

должна делать вот это. В файлах все прописанно. Тоесть думаешь паскаль битый?? Не кинешь тд ссылки на нормальный, проверенный.

[Hacker19_90]

Пишет :Error 2: File not found, хотя файл лежит в той же папке

И что?
Смотрите что в меню паскаля в разделе Change Dir написано!
Вот это для него рабочая дериктория! и файл должен быть именно там!
Если он задаётся явно без пути! Сообствеено там по любому должен быть файл для чтения!
Потом
Зачем вам ээ файлы! Если вы в них ничего не пишете и не читаете с них?

[semechKO]

Я не профессионал в программирование, можете четко объяснить , где что поменять , чтобы заработало ? как не читаю и не пишу? там же операторы read,reset и rewrite

[VIK_aka_TOR]

доделал... немного переделал... держи... там и файлики и прога..

[Hacker19_90]

же операторы read,reset и rewrite

и что? В файл то вы не пишите! И не читаете!
Вы "читаете" с клавы и "записываете" на экран!

[semechKO]

Не поверишь,.... File not found. Мб и правда там директиву куда то нужно записать?