нужно это для того чтобы два минимальных числа выводило а не одно число в сортировке

[Sonya123456789]

А нужно это для того чтобы два минимальных числа выводило а не одно число

Подскажите как работать с этой сортировкой

For i:=0 to n-1 do
For j:=i+1 to n do
If a[j]<a[i] then
begin
f:=a[i];
a[i]:=a[j];
a[j]:=g;
end;

Вот код сортировки массива мне нужно этот код вставить в мою программу но я не понимаю как его подставить

Begin
  min:=arr[0];

  For i:=0 to 4 do
   if min > arr[i] then
       min:=arr[i];

  for i := 0 to Length(arr) - 1 do
     arr[i] := StrToInt(Memo1.Lines[i]);

  Label1.Caption:=inttostr (min);

end;

end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[p51x]

0. А какой смысл искать минимум до ввод элементов массива?
1. Выкидываете весь свой код, кроме ввода массива.
2. Добавляете сортировку.
3. Берете пару нужных элементов.

[Sonya123456789]

Боже скажите что это значит умоляю)
For i:=0 to n-1 do
For j:=i+1 to n do

[p51x]

https://pas1.ru/cycles
http://mif.vspu.ru/books/pascal/fornext.html
http://learnpascal.ru/vvedenie-v-pas...le-repeat.html

[Aleksandr H.]

"это" работать не будет

For i:=0 to n-1 do
For j:=i+1 to n do
If a[j]<a[i] then
begin
f:=a[i];
a[i]:=a[j];
a[j]:=g;
end;

[Serge_Bliznykov]

Сообщение от Aleksandr H.

"это" работать не будет

ну, да, переменная не та...

так - будет (n в моём пример должна быть РАЗМЕРУ массива arr):

For i:=0 to n-2 do
  For j:=i+1 to n-1 do
     If arr[j]<arr[i] then
      begin
         f:=arr[i];
         arr[i]:=arr[j];
         arr[j]:=f;
      end;

[Serge_Bliznykov]

Сообщение от Sonya123456789

Боже скажите что это значит умоляю)

Соня, давайте так поступим.
Раз совет и ссылки на статьи от p51x не помогли, тогда:

Вы выложите сюда код своей РАБОЧЕЙ программы, которая у Вас заполняет массив и выводит одно число, а Вам помогу вставить в неё код сортировки и вывода ДВУХ чисел.