Вылетает после ввода матрицы

[Вероника92]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows;

  const
    n=10;
    type
      t1= array[1..n] of Integer;
var
   x:t1;
   i:integer;

procedure Input(x:t1);
  var i:Integer;
  begin
     Write('ââåäèòå 10 ÷èñåë: ');
     for i:=1 to n do
         read(x[i]);
  end;
 //-------------------------------------
   function Seach(const x: t1; d:Byte): Integer;
var
  y,i: Integer;
begin
  y:=1;
  while d<>0 do
    begin
      y:= y*10;
      Dec(d)
    end;

  Seach:=((x[i] div (y div 10)) mod 10);
end;
 //-------------------------------------
  function change(x:t1):Integer ;
  var a,b,i:Integer;
  begin
    a:= Seach(x,2);
    b:= Seach(x,3);
    change:=(x[i]div 1000)*1000+a*100+b*10+x[i]mod 1000
  end;
 //-------------------------------------
begin
 SetConsoleOutputCP(1251);
 Input(x);
 for i:=1 to n do
 begin
   x[i]:=change(x);
   write( x[i],'  ');
 end;
 
 Readln
end.

нужно в массиве чисел поменять 2 и 3 цифру в каждом числе местами. после ввода массива окно консоли закрывается

[Stilet]

read(x[i]); замени на readln(x[i]);

[FPaul]

Плюс к сообщению Stilet.

Смотри, переменная i - локальная и нигде нет присвоения, но в последней формуле (для x[i]) она используется. Это легко определяется при пошаговой отладке.

//-------------------------------------
  function change(x:t1):Integer ;
  var a,b,i:Integer;
  begin
    a:= Seach(x,2);
    b:= Seach(x,3);
    change:=(x[i]div 1000)*1000+a*100+b*10+x[i]mod 1000
  end;

[Stilet]

Кстати да. На это я не обратил внимание.

[FPaul]

Я догадываюсь, что процесс обучения сорвётся, но предложил бы такой вариант кода. Разница в том, что я не привязываюсь к числам определённой разрядности.
Сначала выделяю цифры в позициях 2 и 3, потом получаю новое число из 3-х цифр, и дополняю его оставшимися цифрами.

program Digit2and3;

const
  N = 10;
type
  TArray = array [1..N] of integer;

  procedure ShowArray(const a: TArray; N: integer);
  var
    i: integer;
  begin
    for i := 1 to N do
      Write(a[i]: 8);
    writeln;
  end;

  procedure ChangeDigits2and3(var a: integer);
  var
    r: integer;
    d2, d3: integer;
  begin
    r  := a;
    a  := a mod 10;
    r  := r div 10;
    d2 := r mod 10;
    r  := r div 10;
    d3 := r mod 10;
    r  := r div 10;
    a  := a + d3 * 10 + d2 * 100;
    a  := a + r * 1000;
  end;

const
  x: TArray = (1, 12, 123, 1234, 12345, -1, -12, -123, -1234, -12345);
var
  i: integer;
begin
  ShowArray(x, N);
  for i := 1 to N do
    ChangeDigits2and3(x[i]);
  ShowArray(x, N);
end.

Естественно, способ дополнения сильно зависит от изучаемой темы. Я сделал просто, а можно было бы продолжать выделять цифры и умножая их на 10^i складывать с результатом. Например

  procedure ChangeDigits2and3(var a: integer);
  var
    r: integer;
    d2, d3: integer;
    m: integer;
  begin
    r  := a;
    a  := a mod 10;
    r  := r div 10;
    d2 := r mod 10;
    r  := r div 10;
    d3 := r mod 10;
    r  := r div 10;
    a  := a + d3 * 10 + d2 * 100;
    m  := 100;
    while r <> 0 do
    begin
      m := m * 10;
      a := a + m * (r mod 10);
      r := r div 10;
    end;
  end;

Если делать универсальную процедуру с обменом k и m цифр - придётся помудрить. Но этого нет на повестке и в условии.

[Вероника92]

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

[FPaul]

Ой, а я пока ждал ответ накатал универсальный вариант:

  procedure ChangeDigits2and3(var a: integer; k, n: integer);
  var
    r: integer;
    Dk, Dn, Mk, Mn: integer;
    i, m: integer;
  begin
    {для упрощения принимаем, что k<n}
    if k > n then
    begin
      r := k;
      k := n;
      n := r;
    end;
    r := a;
    a := 0;
    m := 0;
    for i := 1 to n do
    begin
      if m > 0 then  {чтобы избежать переполнения}
        m := m * 10
      else
        m := 1;
      if i = k then
      begin
        Mk := m;
        Dk := r mod 10;
      end
      else if i = n then
      begin
        Mn := m;
        Dn := r mod 10;
      end else
      begin
        a := a + m * (r mod 10);
      end;
      r := r div 10;
    end;
    a := a + r * 10 * m;
    a := a + Mn * Dk + Mk * Dn;
  end;

А озвучь изначальное задание...

[Вероника92]

задание на картинке

[FPaul]

Ладно, чтобы не испортить самостоятельную работу просто подскажу.
В твоей реализации Search несколько ошибок.
1. Среди параметров массив x (не число, а именно массив).
2. Значение переменной i перед использованием не определено.
3. Если ты ищешь разряд номер d, логично использовать цикл for.

  function Search(a: integer; d: byte): integer;
  var
    i: integer;
  begin
    for i := 1 to d - 1 do
      a := a div 10;
    Search := a mod 10;
  end;

А дальше просто - принцип как в моём универсальном варианте - пропускаешь k и n цифры (правда, запоминаешь их множители), а потом их с перестановкой добавляешь.
Заметь, в функцию я передал не массив, а всего лишь число.

[Вадим Мошев]

Для этой цели можно воспользоваться строками, если такое допустимо.
Вот функция, которую требовалось записать в задании:

function getNthDigit(const n: integer): byte;
var
	st: string;
	ie: integer;
begin
	val(n, st, ie);
	getNthDigit:=st[n];	
end;