проверьте программку пожалуйста!

[djem90]

Прочитать из файла матрицу целых чисел 10*10. Найти сумму факториалов лежащих в заданной области. Факториалы вычислять при помощи функции. Область два треугольника основание 1 по 5-ому столбцу и вершина 1 элемент 5 строки; 2 треугольник такой же основание по 10 столбцу вершина в 6 столбце 5-ой строки.

[djem90]

вот что у меня получилось
PROGRAM KURS;
var
fd,fr:text;
a:array[1..10,1..10] of integer;
n,m,i,j,t,k:integer;
function inf(x:integer):longint;
var s:real;
begin
s:=1;
while (x<>2) do begin
s:=x*(x-1);
x:=x-1;
end;
inf:=s;
end;
begin
assign (fd,'kurs.dat');
assign (fr,'kurs.res');
reset(fd);
rewrite(fr);
read(fd,m,n);
for i:=1 to n do
for j:=1 to n do
read (fd,a[i,j]);
if n mod2=0 then k:=ndiv2;
s:=0;
n:=10;
for i:=1 to k do begin
{n:=n-1;
t:=1;}
for j:=t to n do
s:=s+inf(x(i,j));
t:=t+1;
end;
writeln(s);
n:=10;
for i:=k+1 to n do begin
for j:=n+1-i to i=j do
s:=s+inf(x(i,j));
end;
writeln (fr,'s=',s:7);
readln;
close(fd);
close(fr);
end.

[como]

Сообщение от djem90

вот что у меня получилось

Не очень, прямо скажем. Я переписал для понятности:

PHP код:

var
end.
end;
end;
end;
end;
begin
begin
s:=0;
s:=1;
n:=10;
n:=10;
t:=1;}
inf:=s;
readln;
t:=t+1;
x:=x-1;
{n:=n-1;
close(fd);
close(fr);
reset(fd);
fd,fr:text;
s:=x*(x-1);
var s:real;
writeln(s);
rewrite(fr);
PROGRAM KURS;
read(fd,m,n);
for i:=1 to n do
for j:=1 to n do
for j:=t to n do
read (fd,a[i,j]);
s:=s+inf(x(i,j));
s:=s+inf(x(i,j));
n,m,i,j,t,k:integer;
while (x<>2) do begin
for i:=1 to k do begin
for j:=n+1-i to i=j do
writeln (fr,'s=',s:7);
assign (fd,'kurs.dat');
assign (fr,'kurs.res');
for i:=k+1 to n do begin
if n mod2=0 then k:=ndiv2;
a:array[1..10,1..10] of integer;
function inf(x:integer):longint;