Программа 9.2

Program alfavit;

const kol_vo=10;

var i, k, j: integer;

stroki: array [1..kol_vo] of string;

begin

writeln ('Введите ', kol_vo:3, ' строк для упорядочивания');

writeln ('Ввод строки заканчивается клавишей Enter');

for i:=1 to kol_vo do readln(stroki[i]);

writeln ('Результаты выполнения программы');

for i:=1 to kol_vo do

begin

k:=1;

for j:=2 to kol_vo do

if (stroki[j]< stroki[k]) and (stroki[j]<>'') then k:=j;

writeln (stroki[k]);

stroki[k]:='';

end;

end.

	строкаj < строкаk и строкаj не пустая"

Рис.9.1. Блок-схема задачи 9.2