Метод прямого включения

program Project1;
 
const
  N = 10;
var
  Arr : array[1..N] of Integer;
  i, j, Num : Integer;
  StrTmp : String;
begin
  repeat
    Writeln('Сортировка массива вставками по возрастанию.');
 
    Writeln('Исходный массив:');
    Randomize;
    for i := 1 to N do begin
      Arr[i] := Random(11); //0..10.
      if i > 1 then Write(#9);
      Write(Arr[i]);
    end;
    Writeln;
 
    (*Сортировка вставками. По возрастанию.*)
    for i := 2 to N do begin
      j := i;
      Num := Arr[i];
      while (j > 1) and (Arr[j - 1] > Num) do begin
        Arr[j] := Arr[j - 1];
        j := j - 1;
      end;
      Arr[j] := Num;
    end;
 
    Writeln('Массив после сортировки:');
    for i := 1 to N do begin
      if i > 1 then Write(#9);
      Write(Arr[i]);
    end;
    Writeln;
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(StrTmp);
  until StrTmp <> '';
end.

Program Zadacha1;
uses crt;
var
   i,j:integer;
   x:array[1,11,21,31,41,51,61,71,81,91,101,111,121] of string;
begin
clrscr;
j:=High(x) do
writeln("всего элементов", j);
writeln("введите номер элемента");
read(j);
Writeln("число по номеру равно ",x[j]);
end;

program Project1;
 
var
  Dig, Num : Integer;
  StrTmp : String;
begin
  repeat
    Writeln('Определение цифры в старшем разряде двузначного десятичного числа.');
 
    Writeln('Задайте двузначное десятичное число:');
    Readln(Num);
 
    if not ( Num in [10..99] ) then begin
      Writeln('Неверный ввод. Число должно принадлежать диапазону 10..99.');
      Continue;
    end;
 
    Dig := Num div 10;
    Writeln('Цифра в старшем разряде:');
    Writeln(Dig:1);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(StrTmp);
  until StrTmp <> '';
end.

program Project1;
 
var
  i, Num : Integer;
  StrTmp : String;
begin
  repeat
    Writeln('Определение элемента по его номеру.');
 
    Writeln('Задайте номер:');
    Readln(i);
    Num := 1 + (i - 1) * 10;
    Writeln('Значение элемента:');
    Writeln(Num);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(StrTmp);
  until StrTmp <> '';
end.

program Project1;
 
var
  Arr : array[1..13] of Integer;
  i : Integer;
  StrTmp : String;
begin
  for i := 1 to 13 do begin
    Arr[i] := 1 + (i - 1) * 10;
  end;
 
  repeat
    Writeln('Определение элемента по его номеру.');
 
    Writeln('Задайте номер из диапазона 1..13:');
    Readln(i);
 
    if not ( i in [1..13] ) then begin
      Writeln('Неверный номер. Номер должен принадлежать диапазону: 1..13.');
      Continue;
    end;
 
    Writeln('Значение элемента:');
    Writeln(Arr[i]);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(StrTmp);
  until StrTmp <> '';
end.