Текстовый файл в Delphi

[Nerotim]

Прога выдает ошибку, мол файл не найден. Саму прогу поместил в одну папку с текстовым файлом. Подскажите, может я не правильно открываю файл, или ошибка в самой проге есть...

Задание
Подсчитать сумму чисел в исходном текстовом файле, созданном заранее в редакторе среды Delphi и содержащий 5 строк. Результат и исходный файл по строкам записать в новый текстовый файл

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  math;

Function linesum(var buf: string): integer;
var rb: string;
n,sn,i,j: byte;
code : integer;
Begin
sn:=0;
buf:=' '+buf+' ';
i:=0;
while i<length(buf) do
begin
if ( buf[i] = ' ') and (buf[i+1] <>' ')
then
begin
rb:=' ';
j:=i+1;
Repeat rb:=rb+buf[j];
j:=j+1;
Until buf[j]='    ';
val(rb,n,code);
if code=0 then
sn:=sn+n;
i:=j
end
else i:=i+1;
end;

linesum:=sn;
end;


//========================================

var f: text;
buf,name: string;
s: integer;
Begin
writeln('vvedite imya faila');
readln(name);
AssignFile (f,'name');
Reset(f);
s:=0;
while not Eof(f) do
Begin
readln(f,buf);
s:=s+linesum(buf);
writeln(buf);
end;
CloseFile(f);
writeln('summa=',s);
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Slym]

AssignFile (f,'name');

красное убрать

[Пепел Феникса]

файл так и называется name? без расширения?

красное убрать

и будет нетерминированная строка...мда...

[Slym]

Сообщение от Пепел Феникса

файл так и называется name? без расширения?
и будет нетерминированная строка...мда...

у него имя переменной name указано как стока 'name' в кавычках

[Пепел Феникса]

тогда не полагайтесь на подсветку, у вас выделена лишь последняя кавычка.

[Slym]

Сообщение от Пепел Феникса

тогда не полагайтесь на подсветку, у вас выделена лишь последняя кавычка.

косяк форума

[CODE]AssignFile (f,[COLOR="Red"]'[/COLOR]name[COLOR="red"]'[/COLOR]);
[/CODE]
[COLOR="Red"]красное [/COLOR]убрать

[Nerotim]

Сообщение от Пепел Феникса

файл так и называется name? без расширения?
и будет нетерминированная строка...мда...

нет, name это просто переменная...я вбиваю имя файла после того как меня спрашивают. Имя файла которое я вобью- File1.txt

[Serge_Bliznykov]

ну так пост #2 должен Вам помочь!

[Nerotim]

Вроде код правильный, а все равно компилятор ошибку выдает. Файл с текстом лежит в одной папке с файлом программы, Когда прога просит ввести имя файла(name) я ввожу путь к текстовому файлу, дальше ничего не происходит или вылетает ошибка