Сосчитать количество дорог - Turbo Pascal

Формулировка задачи:

В галактике «Milky Way» на планете «Snowflake» есть N городов, некоторые из которых соединены дорогами. Император галактики «Milky Way» решил провести инвентаризацию дорог на планете «Snowflake». Но, как оказалось, он не силен в математике, поэтому он просит вас сосчитать количество дорог. Требуется написать программу, помогающую императору сосчитать количество дорог на планете «Snowflake». Входные данные В первой строке входного файла INPUT.TXT записано число N (0 •N •100). В следующих N строках записано по N чисел, каждое из которых является единичкой или ноликом. Причем, если в позиции (i, j) квадратной матрицы стоит единичка, то i-ый и j-ый города соединены дорогами, а если нолик, то не соединены. Выходные данные В выходной файл OUTPUT.TXT необходимо вывести число, определяющее количество дорог на планете «Snowflake». Пример

INPUT.TXT	OUTPUT.TXT
5 0 1 0 0 0 1 0 1 1 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0	3

Решение задачи: «Сосчитать количество дорог»

textual
                            Листинг программы 
                        
 
                        
                          
                    
var f: text;
    i, j, n, t, w: integer;
begin
  w := 0;
  assign(f, 'INPUT.TXT');
  reset(f);
  readln(f, n);
  readln(f);
  for i := 2 to n do
    begin
      for j := 2 to i do
        begin
          read(f, t);
          w := w + t
        end;
      readln(f)
    end;
  close(f);
  assign(f, 'OUTPUT.TXT');
  rewrite(f);
  writeln(f, w);
  close(f)
end.