Задан файл чисел. Найти сумму его компонент и последнюю компоненту — Pascal(Паскаль)

Program PascalGuru;

var
  f: text;
  c, summa: integer;

begin
  assign(f, 'file.txt');
  reset(f);

  summa := 0;
  while not eof(f) do
  begin
    readln(f, c);
    summa := summa + c;
  end;

  writeln('Summa ravna:', summa);
  writeln('Poslednyaya komponenta:', c);

  close(f);
  readln;

end.