Расчет определителя матрицы - Turbo Pascal

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

Помогите пожалуйста создать файл-программу для паскаля ( расчет определителя матрицы 3 на 3 введенной из файла) Заочно благодарен!!!

Решение задачи: «Расчет определителя матрицы»

Листинг программы

Type  d3x3 = Array[1..3,1..3] of Real;
...
Function M3x3(m3 : d3x3) : Real;
Begin
  M3x3:=m3[1,1]*(m3[2,2]*m3[3,3]-m3[3,2]*m3[2,3])
       -m3[1,2]*(m3[2,1]*m3[3,3]-m3[3,1]*m3[2,3])
       +m3[1,3]*(m3[2,1]*m3[3,2]-m3[3,1]*m3[2,2]);
End;
...

Объяснение кода листинга программы

Создается тип данных d3x3, который представляет собой массив из трех строк и трех столбцов с плавающей точкой.
Определяется функция M3x3, которая принимает аргумент m3 типа d3x3 и возвращает значение типа Real.
Внутри функции вычисляется значение M3x3. Это делается путем умножения элемента m3[1,1] на произведение элементов m3[2,2], m3[3,3], и вычитания произведения элементов m3[1,2], m3[2,1], m3[3,3], и m3[3,2], а затем прибавления произведения элементов m3[1,3], m3[2,1], m3[3,2], и m3[2,2].
Функция заканчивается без дополнительных действий.