Pascal разобрать код

[Cubi753]

Помогите разобрать код по строчно пожалуйста!!(что делает каждая строчка)

---------------------------------------------------------
uses crt; 
type countries=record 
country: string[100]; 
pcount: real; 
end; 
const 
N=9; 
var 
CountryPeople: array[0..N]of countries; 
i,j: integer; 
bufferC: string[30]; 
bufferp: real; 
Begin 
clrscr; 
for i:=0 to N do 
begin 
writeln('Enter country'); 
readln(CountryPeople.country); 
writeln('Enter people count of country'); 
readln(CountryPeople.pcount); 
end; 

for j:=0 to N-1 do 
for i:=0 to N-j do 
begin 
if (CountryPeople[i+1].pcount>CountryPeople.pcount) then 
begin 
bufferC:=CountryPeople.country; 
bufferP:=CountryPeople.pcount; 
CountryPeople.country:=CountryPeople[i+1].country; 
CountryPeople.pcount:=CountryPeople[i+1].pcount; 
CountryPeople[i+1].country:=bufferC; 
CountryPeople[i+1].pcount:=bufferP; 
end; 
end; 

clrscr; 
writeln ('Country':10,' ','People count':10); 
for i:=0 to N do 
begin 
write(CountryPeople.country:10,' '); 
writeln(CountryPeople.pcount:10:2); 

end; 
readkey; 
end.

[BDA]

Во-первых, код, кхм, странный (способ обмена элементов "порадовал").
Во-вторых, что именно непонятно? Вы пытались разобраться сами?

[Cubi753]

Сообщение от BDA

Во-первых, код, кхм, странный (способ обмена элементов "порадовал").
Во-вторых, что именно непонятно? Вы пытались разобраться сами?

Ну я же написал что хотел бы узнать что делает каждая строчка кода.
p.s.есть предложения как сделать код не "странным"?
Вот задание:Дан массив записей,где первое поле – страна,второе – население. Отсортировать страны за численностью населения,и вывести их.

[BDA]

Начнем с того, что код даже не компилируется.

Если Вы писали сами, то хотя бы некоторые строки должны быть понятны; если не сами, то не легче ли спросить у автора программы, что он хотел "сказать"? Какое-то представление о языке у Вас имеется?

[Cubi753]

Сообщение от BDA

Начнем с того, что код даже не компилируется.

Если Вы писали сами, то хотя бы некоторые строки должны быть понятны; если не сами, то не легче ли спросить у автора программы, что он хотел "сказать"? Какое-то представление о языке у Вас имеется?

Код работает это 100%, а вот спросить у автора не получиться так как он так сказать утерян уже

[BDA]

Не компилируется - Пруф.
Зачем же Вы утеряли автора?)

[Cubi753]

Сообщение от BDA

Не компилируется - Пруф.
Зачем же Вы утеряли автора?)

Ну не знаю почему оно там не компилируется,проверял на АBC вроде норм...
А потеря автора,долгая история ну ладно,пойду по другим форумам тогда.. а то у меня еще 4 не понятных кода)

[BDA]

Возможно, при вставке на форум потерялись индексы кое-где.
Вы начинаете не с того конца - нужно разбираться в языке, а не в коде конкретной программы. Прочтите 2-4 главы http://borlpasc.narod.ru/docym/Faronov/, и многое прояснится.

[Cubi753]

Сообщение от BDA

Возможно, при вставке на форум потерялись индексы кое-где.
Вы начинаете не с того конца - нужно разбираться в языке, а не в коде конкретной программы. Прочтите 2-4 главы http://borlpasc.narod.ru/docym/Faronov/, и многое прояснится.

Хорошо,спасибо)