Type mismatch

program IDZ_2_2;
uses crt;
const
n=4;
m=4;
var
x:array[1..n,1..m] of integer;
x1:array[1..n] of integer;
i,j,tmp:integer;
min,num:integer;
begin
clrscr;
randomize;
for i:=1 to n do
 for j:=1 to m do
  x[i,j]:=random(100);
writeln;
 for i:=1 to n do
 begin
 for j:=1 to m do
 write(x[i,j]:4);
 writeln;
 end;
 writeln;
 for i:=1 to n do
 x1[i]:=x[i,i];
 for i:=1 to n do
 write(x1[i]:4);
 writeln;
   min:=x1[1];
   for i:=2 to n do
   if x[i] < min then
   begin
   min:=x[i];
   num:=i;
   end;
   writeln('Minimalbnui element glavnoi diagonali = ',min,'. On nahodits9 v ',i,' stroke');
   readkey;
   end.

 min:=x1[1];
   for i:=2 to n do
   if x1[i] < min then
   begin
   min:=x1[i];
   num:=i;
   end;

Uses
 CRT;
CONST
 n=4;
var
x:array[1..n,1..n] of INTEGER;
i,j,imin,jmin:INTEGER;
begin
clrscr;
RANDOMIZE;
imin:=1;
jmin:=1;
FOR i:=1 TO n DO
begin
 FOR j:=1 TO n DO
 begin
  x[i,j]:=RANDOM(10)-3;
  WRITE(x[i,j]:4);
   if (i=j) and (x[i,j]<x[imin,jmin]) then
   begin
    imin:=i;
    jmin:=j;
   end;
 ENd;
writeln;
END;
writeln;
writeln('Minimalbnui element glavnoi diagonali = ',x[imin,jmin],'. On nahodits9 v ',imin,' stroke');
readkey;
END.