Составляющие строки

[Arigato]

Вместо этого: z:=l+q;
Попробуйте: l:=l+q;
Тело цикла возьмите в скобки begin ... end

И не забудьте закрыть файл.

[V@mpir]

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
i,z:integer;
f:TextFile;
begin
Assignfile(f,'ip.txt');
Reset(f);
read(f,z);
z:=z-1;
z:=-z;
while not Eof(f) do
begin
read(f,i);
z:=z+i;
end;


{ TODO -oUser -cConsole Main : Insert code here }
end.

Всё было верно уже давно и вы были правы, единственное, что меня постоянно путало так это то, что я для себя (для проверки) выводил в цикли и мне всё время выдавало неверный результат. Спасибо огромное!

[Arigato]

А я не вижу в вашем коде в последнем сообщении правильного решения задачи.