program TOV_cena;
var p:array [1..8] of string[50];s:array[1..8] of integer;
sort:boolean;i,n1,f,h:integer;
st:string[50];
begin
writeln('‚ўҐ¤ЁвҐ н«Ґ¬Ґвл ¬ бЁў ');
for i:=1 to 8 do
readln(p[i]);
for i:=1 to 8 do
begin {n1-Ї®§ЁжЁп 1-®Ј® Їа®ЎҐ« ў бва®ЄҐ}
n1:=pos(' ',p[i]);
st:=copy(p[i],n1+1,length(p[i])-n1);
{f-жҐ в®ў а }
val(copy(p[i],n1+1,length(p[i])),f,h);
end;
sort:=false;
while not sort do
begin sort:=true;
for i:=1 to 7 do
if p[i]>p[i+1] then
begin
st:=p[i]; p[i]:=p[i+1]; p[i+1]:=st;
h:=s[i]; s[i]:=s[i+1]; s[i+1]:=h;
sort:=false
end;
end;
for i:=1 to 8 do writeln(p[i]);
end.
Тысячу спасиб и + в репу спасителю