Заполнить два одномерных массива...

Program Zadacha;
uses crt;
const
  n = 40;
  m = 10;
var
 x:array[1..n] of integer;
 y:array[1..m] of integer;
 i,j,q,xmin:integer;
 
begin
 clrscr;
 randomize;
 writeln('Massiv x:');
 for i:=1 to n do begin
    x[i]:=random(20)-10;
    write(x[i],' ');
 end;
 writeln;
 writeln('Massiv y:');
 for i:=1 to m do begin
    y[i]:=random(20)-10;
    write(y[i],' ');
 end;
 writeln;
 for i:=1 to n do begin
    for j:=1 to n do
       if x[i]<x[j] then begin
      q:=x[j];
      x[j]:=x[i];
      x[i]:=q;
       end;
 end;
 xmin:=0;
 i:=0;
 while (xmin=0) and (i<n) do   begin
    i:=i+1;
    xmin:=i;
    for j:=1 to m do
    if x[i] = y[j] then xmin:=0;
 end;
 writeln;
 writeln('Min=',x[xmin]);
 readkey;
end.

uses crt;
const n=40;
      m=10;
var x,y,z:array[1..n]of integer;
    i,j,k,xmin:integer;
begin
clrscr;
randomize;
writeln('Massiv X:');
for i:=1 to n do
 begin
  x[i]:=random(21)-10;{заполняем случайными числами от -10 до 10}
  write(x[i],' ');
 end;
writeln;
writeln('Massiv Y:');
for i:=1 to m do
 begin
  y[i]:=random(21)-10;
  write(y[i],' ');
 end;
writeln;
writeln('Posledovatelnost:');
xmin:=11;{за мин берем число больше, чем есть в массиве}
for i:=1 to n do{смотрим элементы первого массива}
 begin
  k:=0;{чначала совпадений ноль}
  for j:=1 to m do{идем по второму массиву}
  if x[i]=y[j] then k:=k+1;{если число совпало с числом второго массива, считаем}
  if k=0 then{если ни одного совпадения}
    begin
     write(x[i],' ');{выводим число в строку через пробел}
     if x[i]<xmin then xmin:=x[i];{если оно меньше предыдущего минимального, то оно мин}
    end;
 end;
writeln;
write('Xmin=',xmin);{выводим его}
readln
end.