задача "Гонки" (паскаль\делфи)

[Dessu]

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

Гонки.

Имя входного файла: rally.in
Имя выходного файла: rally.out
Максимальное время работы на одном тесте: 2 секунды
Максимальный объем используемой памяти: 256 мегабайт
В области Х находится У городов. Некоторые пары городов соединены
проселочной дорогой с двусторонним движением. Начавшись в каком-то
городе, дорога не может закончиться в нем же. В этом году состояние
дорог позволило отделению ГИБДД области Х провести гонки под
лозунгом «Скажем НЕТ нарушениям скоростного режима». Было
решено, что круговая трасса должна состоять из четырех дорог, но не
может проходить через один город два раза. Естественно, свернуть
с одной дороги на другую можно только в городе. Организаторы
уже должны приступить к составлению отчета, и для этого требуется
посчитать количество различных трасс.
Формат входного файла В первой строке входного файла записаны
количество городов У (1 ≤ У ≤ 300) и количество дорог К. В каждой из
следующих m строк содержится два различных числа — номера городов,
соединенных соответствующей дорогой.
Формат выходного файла В выходной файл выведите одно число —
количество круговых трасс из четырех дорог, которые могут составить
организаторы.

Пример

rally.in
4 6
1 2
2 3
3 4
4 1
1 3
2 4

rally.out
3

Код на яве

import java.io.File;
import java.io.FileWriter;
import java.io.IOException;
import java.io.PrintWriter;
import java.util.Arrays;
import java.util.Scanner;

public class rally_ft implements Runnable {

	private Scanner in;
	private PrintWriter out;
	private int cread = 0;
	
	
	public void run() {
		out.close();
	}
	
	private rally_ft(String name) {
		try {
			in = new Scanner(new File(name + ".in"));
			out = new PrintWriter(new FileWriter(name + ".out"));	
			int n = in.nextInt();
			int m = in.nextInt();
			int[][] a = new int[n][n];
			for (int i = 0; i < m; i++) {
				int u = in.nextInt() - 1;
				int v = in.nextInt() - 1;
				a[u][v] += 1;
				a[v][u] += 1;
			}

			boolean bad = false;

			for (int i = 0; i < n; i++) {
				for (int j = i + 1; j < n; j++) {
					if (a[i][j] > 1) {
						System.err.println("Multiple edges between " + i + " " + j);
						bad = true;
					}
				}
			}
			assert(!bad);
			long ans = 0;

			int[][] b = new int[n][n];
			for (int i = 0; i < n; i++) {
				for (int j = 0; j < n; j++) {
					b[i][j] = 0;
					for (int k = 0; k < n; k++) {
						b[i][j] += a[i][k] * a[k][j];
					}
				}
			}

			for (int i = 0; i < n; i++) {
				for (int j = i + 1; j < n; j++) {
					ans += b[i][j] * (b[i][j] - 1);
				}
			}

			out.println(ans / 4);
			out.close();
		} catch (IOException e) {
			e.printStackTrace();
			System.exit(239);
		}
	}

	public static void main(String[] args) {
		(new Thread(new rally_ft("rally"))).start();
	}
}

[Abstraction]

Возможно, будет проще, если Вы скажете, какую из строк приведённого кода (самой функции rally_ft внутри блока try, остальное несущественно) Вы не можете перевести на Delphi.

[Dessu]

Какое исключение ловит try?

[Dessu]

В принципе, я попробовал перевести и программа завелась, но показывает неверный ответ, а на яве - верный.

int[][] b = new int[n][n];

в этой строке создается двумерный массив?

[Abstraction]

Мне нужен основной код решения задачи. Предположительно, он начинается с этих строк

Да. Это функция, принимающая аргумент типа "строка" (имя файла с данными). try{...}catch - синтаксическая конструкция для обработки исключительных ситуаций; в Delphi вроде есть какой-то её аналог, но пока это можно просто выкинуть. Дальше открываются два файла, на чтение и запись, и из первого читаются все пары (первый цикл).
Второй цикл, с System.err.println - проверка на отсутствие дублей в данных; по большому счёту не нужна. Третий (тройной) цикл - умножение матрицы инцидентности a на саму себя, с сохранением результата в новую матрицу b. Четвёртый цикл - сбор ответа, причём каждый путь оказывается посчитан 4 раза. out.println(ans / 4); выводит полученный ответ в выходной файл.

в этой строке создается двумерный массив?

Да. Размера n*n. Обратите внимание: в Java первый элемент массива размера n имеет индекс 0, а последний - n-1.

[Dessu]

Огромное спасибо.
for(int i = 0; i < n; i++) - аналог for i:=0 to i=n do ?
Вроде бы, ничего сложного нет, но код в делфи выводит 0.5

Еще вопрос - первый цикл можно выбросить?