Вот такая програмка меня затруднила в Делфи:В режиме диалога вводятся имена 4 человек. Напечатать их в порядке алфавита. Использовать процедуру. Окей? Давайте
типа по первой букве сортировка. Ни составит труда потом отсортировать в цикле с учетом следующих букв. или вообще рекурсивно замутить. mas: array[1..4] of string; - тута имена temp:string; for y:=1 to 4 do for x:=1 to 4-y do if ord(mas[x][1])>ord(mas[x+1][1]) then begin temp:=mas[x+1]; mas[x+1]:=mas[x]; mas[x]:=temp; end;