Загадывается трехзначное число х. из него нужно вычеркнуть одну цифру так, чтобы оставшееся число y являлось делителем иходного числа х. напишите такую программув pascalabcnet

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadInteger('Введите трехзначное число:');
  var (a,b,c):=(x div 100,x div 10 mod 10,x mod 10);
  if b+c<>0 then
    if x mod (10*b+c)=0 then begin
      Writeln('Вычеркнуть первую цифру (',a,')');
      Exit
      end
  else
    if a+c<>0 then
      if x mod (10*a+c)=0 then begin
        Writeln('Вычеркнуть вторую цифру (',b,')');
        Exit
      end
    else
      if a+b<>0 then
        if x mod (10*a+b)=0 then begin
          Writeln('Вычеркнуть третью цифру (',c,')');
          Exit
        end;
  Writeln('Нет решения')
end.

Program SimpleText;var  a,FirstN,SecondN,ThirdN : integer;Begintryreadln(a);FirstN := a div 100;SecondN := ((a div 10) mod 10 );ThirdN :=( a mod 10);if ( a mod (SecondN*10+ThirdN) = 0 ) then writeln('Вычеркиваем первую цифру')else if ( a mod (FirstN*10+ThirdN) = 0) then writeln('Вычеркиваем вторую цифру')else if ( a mod (FirstN*10+SecondN) = 0) then writeln('Вычеркиваем третью цифру')else writeln('Неверно загадано число'); excepton System.DivideByZeroException do
writeln('Деление на 0');end;end.

Программное обеспечение-это набор команд ,управляющих работой компьютера. Без программного обеспечения компьютер не сможет выполнять задачи, которые мы обычно связываем с компьютерами. 
функции программного обеспечения следующие: 1)управлять компьютерными ресурсами организации;2)обеспечивать пользователя всеми инструментами,необходимыми для извлечения пользы из этих ресурсов; 3)выполнять роль посредника между организациями и хранимой информацией ;выбор соответствующего потребностям организации программного обеспечения - одна из ключевых задач управляющего персонала

var
  m, n, i, j: integer;
  s: real;
  a: array[,] of real;
 
begin
  write('Введите S: ');
  read(s);
  write('Введите M, N: ');
  read(m, n);
  setlength(a, m + 1, n + 1);
  writeln('Введите элементы матрицы: ');
  for i := 1 to m do
    for j := 1 to n do
      read(a[i, j]);
  for i := 1 to m do
  begin
    for j := 1 to n do 
      if a[i, j] <> s then
      begin
        writeln(a[i, j]);
        break;
      end;
    if a[i, j] = s then
      writeln('-');
  end;
end.

Пример:
Введите S: 7
Введите M, N: 3 4
Введите элементы матрицы:
7 4 3 7
3 5 1 4
7 7 7 7
4
3
-