В заданную упорядоченную в лексикографическом (алфавитном) порядке последовательность слов вставьте новое заданное слово так, чтобы лексикографический порядок сохранился- Pascal(Паскаль)

var n,i,k:longint;
s:string;
a:array [1..100] of string;
begin
readln(n);//количество слов в посл-ти
for i:=1 to n do readln(a[i]); //чтение посл-ти
readln(s); //чтение слова для вставки
i:=1;
while (s>a[i]) and (i<=n) do inc(i);
k:=i;
for i:=1 to k-1 do writeln(a[i]);
writeln(s);
for i:=k to n do writeln(a[i]);
end.