program Project2; {$APPTYPE CONSOLE} uses SysUtils; var A:array[1..5] of string[30]; i,k:integer; word:string[30]; begin writeln('vvedite slova dlya obrabotki'); for i:=1 to 5 do readln(A[i]); for i:=1 to 4 do for k:=i to 5 do if A[k][1]<A[i][1] then begin Word:=A[k]; A[k]:=A[i]; A[i]:=word; end; writeln('otsortirovannie slova'); for i:=1 to 5 do writeln(A[i]); readln; end.