Несовместимые типы

program lab;
uses crt;
const t=1e-8; n=2; m=18; k=10; x1=-36; x2=72;
var X:array[1..n,1..m]of integer;
    Y,A,Z:array[1..k,1..k]of integer;
    i,j:byte;
begin
clrscr;
for i:=1 to n do
 for j:=1 to m do
  X[i,j]:=(x2-x1)*random+x1;
for i:=1 to n do
 for j:=1 to m do
  begin
    y[i,j]:=exp(ln(2)*x[i,j])-3*cos(x[i,j]);
    if abs(y[i,j]>t then
     if abs((0.75-x*x*x)*x)>t then
      begin
        y[i,j]:=(exp(ln(2)*(-cos(x))+abs((0.75-x*x*x)*x))/((0.75-x*x*x)*x))*exp(ln(abs(0.75-x*x*x)*x))/3)/y[i,j];
        writeln('Y=',y[i,j])
        end;
 
readkey
END.

program lab8;
uses crt;
const t=1e-8; n=2; m=18; k=10; x1=-36; x2=72;
var X:array[1..n,1..m]of real;
    Y,A:array[1..k,1..k]of real;
    Z:array[1..k] of real;
    b:real;
begin
clrscr;
for i:=1 to n do
 for j:=1 to m do
  X[i,j]:=(x2-x1)*random+x1;
for i:=1 to n do
 for j:=1 to m do
  begin
    y[i,j]:=exp(ln(2)*x[i,j])-3*cos(x[i,j]);
    if abs(y[i,j])>t then
     if abs((0.75-x[i,j]*x[i,j]*x[i,j])*x[i,j])>t then
      begin
        b:=(0.75-x[i,j]*x[i,j]*x[i,j])*x[i,j];
        y[i,j]:=((exp(ln(2)*-cos(x[i,j]))+abs(b)/b*exp(ln(abs(b))/3))/y[i,j]);
        writeln('Y[',i,',',j,']=',y[i,j]:5:2)
      end;
   end;
readkey;
END.

i:=1;
while i<=n do
if a[i]=0 then
 begin
  for j:=i to n-1 do
  a[j]:=a[j+1];
  n:=n-1;
 end
else i:=i+1;