Помогите решить задачу по Программированию в паскале.

Держите:

$ cat m1m2.pas
var m1, m2: array[1..100] of integer; i: integer; s1, s2: set of 0..99;
begin
randomize; s1 := []; s2 := [];
write('m1 = [');
for i := 1 to 100 do { create and display first array }
begin
  m1[i] := random(100);
  write(m1[i]);
  if i = 100 then writeln(']') else write(', ');
  s1 := s1 + [ m1[i] ] { add element to first set }
end;
write('m2 = [');
for i := 1 to 100 do { create and display second array }
begin
  m2[i] := random(100);
  write(m2[i]);
  if i = 100 then writeln(']') else write(', ');
  s2 := s2 + [ m2[i] ] { add element to second set }
end;
for i := 0 to 99 do { for all possible element values }
  if i in (s1 - s2) then { if find element in set difference }
  begin
    writeln('min = ', i); { display it and exit }
    break
  end
end.

Проверка:

$ ./m1m2
m1 = [34, 67, 50, 81, 62, 91, 63, 6, 81, 26, 76, 24, 51, 67, 51, 21, 61, 21, 5, 68, 66, 98, 66, 24, 70, 85, 24, 90, 11, 6, 19, 38, 2, 90, 52, 99, 78, 97, 32, 7, 39, 26, 31, 56, 18, 89, 35, 45, 96, 40, 98, 18, 63, 85, 43, 42, 72, 11, 90, 97, 3, 56, 26, 14, 22, 38, 20, 53, 91, 4, 84, 15, 49, 69, 98, 95, 3, 84, 26, 80, 68, 23, 34, 54, 87, 67, 36, 36, 92, 86, 34, 39, 4, 65, 17, 11, 98, 22, 13, 48]
m2 = [85, 11, 82, 57, 46, 4, 31, 1, 53, 5, 20, 44, 95, 91, 23, 4, 10, 0, 96, 46, 63, 93, 89, 7, 30, 4, 30, 50, 42, 44, 17, 82, 78, 42, 41, 85, 29, 44, 35, 98, 63, 46, 16, 41, 72, 68, 21, 91, 59, 26, 50, 26, 96, 93, 37, 28, 74, 68, 69, 50, 57, 50, 49, 37, 54, 0, 67, 17, 37, 51, 35, 37, 15, 12, 65, 12, 85, 88, 57, 24, 3, 58, 6, 17, 2, 22, 60, 0, 28, 68, 55, 61, 8, 40, 99, 91, 18, 96, 70, 36]
min = 13

max := -1;

for i := 1 to 100 do begin fl := true; for j := 1 to 100 do if (m1[i] = m2[j]) then begin fl := false; break; end; if fl and ((max < 0) | (max < m1[i])) then max := m1[i]; end;