Подпрограммы/Паскаль

[Alex_FF]

procedure Find(N: Integer);
var
  S: Array[0..9] of Byte;
  I: Integer;
begin
  for I := 0 to 9 do
    S[i] := 0;
  ReadLn(N);
  while N <> 0 do
  begin
    S[N mod 10] := 1;
    N := N div 10;
  end;
  WriteLn;
  WriteLn('Нет таких цифр:');
  for I := 0 to 9 do
    if S[i] = 0 then
      Write(I, ' ');
  ReadLn;
  ReadLn;
end;

var
  N: Integer;
begin
  ReadLn(N);
  Find(N);
end.