Unhandled Exception: System.IO.IOException: Попытка считывания за концом потока ввода

program FordBellman;
 
uses crt;
 
const
  InputFile = 'input.txt';
  OutputFile = 'output.txt';
  Nmax = 10; { Число вершин графа }
  Infinity = 100000000;
 
type
  TMatrix = array[1..Nmax, 1..Nmax] of longint;
 
var
   d, p: array[2..Nmax] of longint;
 
{ Алгоритм Форда-Беллмана }
procedure Ford_Bellman(const w: TMatrix; const s: integer);
begin
  for var v := 2 to Nmax do 
   begin
    d[v] := Infinity;   { Расстояние от s до v }
    p[v] := -1; { Предшествующая вершина на пути из s в v }
   end;
  d[s] := 0;
  for var k := 1 to Nmax - 1 do
    for var u := 1 to Nmax do
      for var v := 1 to Nmax do
        if (w[u, v] > 0) and (d[v] > d[u] + w[u, v]) then 
         begin
          d[v] := d[u] + w[u, v];
          p[v] := u;
         end;
end;
 
var
  s: integer;
  w: TMatrix;
begin
  assign(Input, InputFile);
  reset(Input);
  assign(Output, OutputFile);
  rewrite(Output);
  read(s); { Начальная вершина }
  inc(s);
  for var i := 1 to Nmax do
    for var j := 1 to Nmax do
      read(w[i, j]);
  Ford_Bellman(w, s);
  for var i := 1 to Nmax do
    write(d[i], ' ');
  close(Input);                   
  close(Output);
  writeln('Ответ в файле: output.txt');
  writeln('Нажмите любую клавишу для выхода');
  readkey;
end.

read(s); { Начальная вершина }//1 число
  inc(s);
  for var i := 1 to Nmax do//еще 100 чисел.
    for var j := 1 to Nmax do
      read(w[i, j]);

read(s); { Начальная вершина }//1 число
inc(s);

read(s); { Начальная вершина }//1 число