Решить с помощью процедуры и функции

program n2;
var z,x:array[1..4] of real;a,b,y:real; i:byte;
function x1(a:real):real;
begin
x1:=Sqrt(cos(a*x[i*i]+1))/exp(-a*x[i])
end;
function x2(b,y:real):real;
begin
x2:=Sqrt(cos(b*y*y)+1)/exp(-b*y)
end;
begin
for i:=1 to 4 do
x[i]:=random(10-1+1)+1;
readln(y);
readln(a);
readln(b);
for i:=1 to 4 do
begin
if x[i]<y then z[i]:=x1(a);
if x[i]>=y then z[i]:=x2(b,y);
end;
for i:=1 to 4 do
write(z[i]:3:1,' ');
readln;
end.

Program n1;
uses crt;
var x,z:array[1..10] of real; i:byte; a,b,y:real;
Procedure n3(x,z:array of real);
begin
for i:=1 to 4 do
begin
if x[i]<y then Z[i]:=Sqrt(cos(a*x[i*i]+1))/exp(-a*x[i]) else
Z[i]:=(cos(b*y*y)+1)/(exp(-b*y));
end;
end;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('y='); readln(y);
for i:=1 to 4 do begin
x[i]:=random(10-1+1)+1;
write(x[i]:1:0,' ':3);end;writeln;writeln;n3(x,z);
for i:=1 to 4 do writeln(z[i]:3:1);
readkey
end.

function x1(a:real):real;
begin
x1:=Sqrt(cos(a*x[i*i]+1))/exp(-a*x[i])  - вот здесь ...a*x[i]*x[i]...  наверное, x в квадрат возводите, а не i
end;

Program n1;
uses crt;
type n2=array[1..10] of real;
var x,z:n2; i:byte; a,b,y:real;
Procedure n3(var x:n2);
begin
for i:=1 to 4 do
if x[i]<y then Z[i]:=Sqrt(cos(a*x[i*i])+1)/exp(-a*x[i]) else
Z[i]:=(cos(b*y*y)+1)/(exp(-b*y));
end;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('y='); readln(y);
for i:=1 to 4 do begin
x[i]:=random(10-1+1)+1;
write(x[i]:1:0,' ':3);end;writeln;writeln;n3(x);
for i:=1 to 4 do writeln(z[i]:3:1);
readkey
end.

Uses crt;
type trig = function (a,x:real):real;
var
x,y,a,b:real;
function trigon(a,x:real):real;
 begin
  trigon:=sqrt(cos(a*sqr(x)))/exp(-a*x);
    end;
function znach(f:trig; a,b,x,y:real):real;
   begin
     if x<y then znach:=f(a,x);
     if x>=y then znach:=f(b,y);
       end;  
begin
Clrscr;
readln(x,y,a,b);
writeln(znach(trigon,a,b,x,y));
readln;
end.

Uses crt;
type trig = function (a,x:real):real;
var
k:integer;
x,y,a,b:real;
function trigon(a,x:real):real;
 begin
  trigon:=sqrt(cos(a*sqr(x)))/exp(-a*x);
    end;
function znach(f:trig; a,b,x,y:real):real;
   begin
     if x<y then znach:=f(a,x);
     if x>=y then znach:=f(b,y);
       end;  
begin
Clrscr;
readln(y,a,b);
for k:=1 to 4 do begin
readln(x);
writeln(znach(trigon,a,b,x,y));
end;
readln;
end.

Uses crt;
{$F+}
type trig = function (a:real; x:integer):real;
var
k:integer;
a,b:real;
x,y:integer;
function trigon(a:real; x:integer):real;
 begin
  trigon:=sqrt(cos(a*sqr(x))+1)/exp(-a*x);
    end;
function znach(f:trig; a,b:real; x,y:integer):real;
   begin
     if x<y then znach:=f(a,x);
     if x>=y then znach:=f(b,y);
       end;  
begin
Clrscr;
readln(y,a,b);
randomize;
for k:=1 to 4 do begin
random(x);
writeln(znach(trigon,a,b,x,y));
end;
readln;
end.

program n2;
var z,x:array[1..4] of real;
     a,b,y:real; i:byte;
function zzz(c, g : real):real; {g - вместо x[i] или y, c - вместо a или b}
begin
zzz := Sqrt(cos(c*g*g)+1)/exp(-c*g)
end;
 
begin
 for i:=1 to 4 do
    x[i]:=random(10-1+1)+1;
 readln(y);
 readln(a);
 readln(b);
 for i:=1 to 4 do
     if x[i]<y then 
            z[i]:=zzz(a, x[i]) 
     else  
            z[i]:=zzz(b,y);
 
   for i:=1 to 4 do
       write(z[i]:10:3,' ');
   readln;
end.

program n2;
type arr = array[1..4] of real; 
var z,x: arr;
     a,b,y:real; i:byte;
procedure zzz(c, g : real; var res: real); {g - вместо x[i] или y, c - вместо a или b; Res - результат вычислений }
begin
 res := Sqrt(cos(c*g*g)+1)/exp(-c*g); 
end;
 
begin
 for i:=1 to 4 do
    x[i]:=random(10-1+1)+1;
 readln(y);
 readln(a);
 readln(b);
 for i:=1 to 4 do
     if x[i]<y then 
            zzz(a, x[i], z[i]) 
     else  
            zzz(b,y, z[i]);
 
   for i:=1 to 4 do
       write(z[i]:10:3,' ');
   readln;
end.