Процедуры и функции

uses crt;
const max=14;
      e=0.0001;
type matr=array[1..max,1..max] of real;
function Fakt(n:integer):real;
var i:integer;
    f:real;
begin
f:=1;
for i:=1 to n do
f:=f*i;
Fakt:=f;
end;
Function Step(x:real;n:integer):real;
var i:byte;
    p:real;
begin
p:=1;
for i:=1 to n do
p:=p*x;
Step:=p;
end;
function AbsTrunc(mt:matr;n:byte):integer;
var i,j:byte;
    s:real;
begin
s:=0;
for i:=1 to n-1 do
for j:=1 to n-i do
s:=s+mt[i,j];
AbsTrunc:=abs(trunc(s));
end;
function Kol(mt:matr;n:byte):byte;
var i,j,k:byte;
begin
k:=0;
for i:=1 to n-1 do
for j:=1 to n-i do
if mt[i,j]<0 then k:=k+1;
Kol:=k;
end;
procedure Vvod(var mt:matr;n:byte;c:char);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    mt[i,j]:=8*random-4;
    write(mt[i,j]:5:1);
   end;
  writeln;
 end;
end;
var d,t,l:matr;
    a,b,c:integer;
    k,m,n:byte;
    x,xn,xk,h,y:real;
begin
clrscr;
randomize;
Vvod(d,11,'D');
a:=AbsTrunc(d,11);
k:=Kol(d,11);
writeln('a=',a,'  k=',k);
write('Press Enter...');
readln;
Vvod(t,12,'T');
b:=AbsTrunc(t,12);
m:=Kol(t,12);
writeln('b=',a,'  m=',m);
write('Press Enter...');
readln;
Vvod(l,14,'L');
c:=AbsTrunc(t,12);
n:=Kol(t,12);
writeln('c=',a,'  n=',m);
write('Press Enter...');
readln;
Vvod(l,14,'L');
write('Введите начало интервала xn=');
readln(xn);
repeat
write('Введите конец интервала больше начала xk=');
readln(xk);
until xk>xn;
repeat
write('Введите шаг табуляции меньше длины интервала h=');
readln(h);
until h<xk-xn;
x:=xn;
while x<=xk+e do
 begin
  if x=0 then writeln('x=',x:5:2,'  решения нет')
  else
   begin
    y:=(2*Fakt(abs(a))*Step(x,k)+2*Fakt(abs(a-b))*Step(x,n))/
    (Fakt(abs(c-a-b))*Step(x,n));
    writeln('x=',x:5:2,'  y=',y:8:4);
   end;
  x:=x+h;
 end;
readln
end.

program lab9;
uses crt;
type
 tzap=record
  x: integer;
  p: array [1..2] of char;
  q: boolean;
  f: string [2];
  h: real
 end;
var
 zap: tzap;
begin
clrscr;
 zap.x:=5;
 zap.p[1]:='a'; zap.p[2]:='b';
 zap.q:=true;
 zap.f:='be';
 zap.h:=2.34;
 writeln (zap.x,' ',zap.p[1],' ',zap.p[2],' ',zap.q,' ',zap.f,' ',zap.h);
end.