Если N не является делителем чисел {a,b,c}, то определить min остаток от деления {a,b,c} на N...

uses crt;
var a,b,c,n,mn:integer;
begin
repeat
write('Введите натуральное число n=');
readln(n);
until n>0;
repeat
writeln('Введите 3 натуральных числа');
readln(a,b,c);
until (a>0)and(b>0)and(c>0);
if(a mod n<>0)and(b mod n<>0)and(c<>0) then
 begin
  writeln('Число ',n,' не является делителем чисел ',a,' ',b,' ',c);
  if a mod n<b mod n then mn:=a mod n else mn:=b mod n;
  if c mod n<mn then mn:=c mod n;
  writeln('Минимальный остаток от деления=',mn);
 end
else
 begin
  writeln('Среди чисел ',a,' ',b,' ',c,' есть кратные числу ',n);
  write('Это числа ');
  if a mod n=0 then write(' ',a);
  if b mod n=0 then write(' ',b);
  if c mod n=0 then write(' ',c);
 end;
end.