Помогите с готовой работой

[Fantalia]

Добрый день, в универе дали ргз, мне помогли его сделать. Осталось только защитить, помогите объяснить что к чему пожалуйстааа

Программа

program krapivina;
uses moda;
var a,t,x:real;
    m,n:integer;
    s:real;
    z:dvumer;
    b1,b2,b3:text;
    i,j:integer;
begin
assign(b1,'исходные данные.txt');
reset(b1);
readln(b1,a);
readln(b1,t);
readln(b1,x);
readln(b1,m);
readln(b1,n);
for i:=1 to n do
for j:=1 to m do
readln(b1, z[i,j]);
close(b1);
assign(b3,'ответ функция.txt');
rewrite(b3);
writeln(b3,'Значение функции У= ',atx(a,t,x):5:2);
close(b3);
summatr(z,m,n,s);
end.

Модуль

unit moda;
interface
type dvumer=array[1..100,1..100] of integer;
var
b2,b3:text;
y:real;
function atx(var a,t,x:real):real;
procedure summatr(z:dvumer;m,n:integer; var s:real);

implementation

function atx(var a,t,x:real):real;
begin
if x<a then y:=sin(x+t)
else if (x+t)>0 then y:=exp(0.34*ln(x+t));
atx:=y;
end;

procedure summatr(z:dvumer;m,n:integer; var s:real);
var i,j:integer;
begin
assign(b2,'ответ матрица.txt');
rewrite(b2);

for i:=1 to m do
begin
s:=0;
for j:=1 to n do
begin
if z[i,j]<z[i,n] then
begin
s:=s+z[i,j];
end;
end;
writeln(b2,'строка',i:2,' ','s=',s:5:2);
writeln('строка',i:2,' ','s=',s:5:2);
end;
close(b2);
end;

end.

[Гончаров]

А там где помогали делать, не смогли объяснить что к чему?

[Dvoishnik]

а оно вообще работает??

program krapivina; //имя программы
uses moda; // подключение модуля
var  //раздел объявления переменных
a,t,x:real; // вещественные переменные
m,n:integer;  //целочисленные 
s:real;      // вещественные
z:dvumer;       // переменная заданного типа(массив)
b1,b2,b3:text;   //переменные текстового файла    
i,j:integer;     //целочисленные 
begin   //тело программы начало
assign(b1,'исходные данные.txt'); //связь файловой переменно с текстовым фалом
reset(b1);         //открываем файл для чтения или записи
readln(b1,a);      //чтение из файла в переменную   
readln(b1,t);      //а оно работает??       
readln(b1,x);
readln(b1,m);
readln(b1,n);
for i:=1 to n do  // читаем файл в матрицу  
for j:=1 to m do  
readln(b1, z[i,j]);  // тоже не уверен что работает 
close(b1);             //закрываем файл
assign(b3,'ответ функция.txt'); //связь файловой переменно с текстовым фалом
rewrite(b3);           //создаем файл если такой есть то предыдущий удаляется 
writeln(b3,'Значение функции У= ',atx(a,t,x):5:2); //записываем в файл результаты 
close(b3);     // закрываем файл
summatr(z,m,n,s); // вызываем процедуру 
end.






Модуль 


unit moda;  //имя модуля
interface 
type dvumer=array[1..100,1..100] of integer; //задаем тип целочисленный массив 
var
b2,b3:text; //файловые переменные 
y:real; //вещественные переменные 
function atx(var a,t,x:real):real;  // объявляем функцию 
procedure summatr(zvumer;m,n:integer; var s:real); // объявляем процедуру 

implementation

function atx(var a,t,x:real):real; 
begin //тело процедуры 
if x<a then y:=sin(x+t)	// если x<a присваиваем в y sin(x+t)
 else //если x>=a 
 if (x+t)>0 then y:=exp(0.34*ln(x+t)); 
atx:=y; // присваиваем результат имени функции
end;

[ProBeginner]

А вот меня интересует, там где "помогли", получили оплату за работу?