Суть программы: ввести количество футболистов(N), потом ввести фамилию и имя(после имени пробел), после ввода нам должно выдать фамилии в алфавитном порядке.
Программа вроде написано, но требует доработки.
program qq;
uses crt;
var i,j, N: integer;
c:char;
fam, name, fam1:string;
begin clrscr;
writeln(' Количество футболистов ');
readln(N);
fam := '';
repeat
read(c);
fam := fam + c;
until c = ' ';
name := '';
repeat
read(c);
name := name + c;
until c = ' ';
For i:=1 to N-1 do begin
For j:=1 to N-i do begin
If fam[j]<fam[j+1] then begin
fam1:=fam[j];
fam[j]:=fam[j+1];
fam[j+1]:=fam1; end; end; end;
writeln(fam);
readln;
end.