Помогите отредактировать кодююне могу исправить самостоятельно ошибки: (

Question

uses 
const n=10; 
var A:array[1..n]of real; 
k,i:integer; 
procedure Swap(i,j:integer); 
var b:real; 
begin if a; 
a=a[j]; 
a=b; 
end;Procedure Conflict(i,k:Integer); 
var j:integer; 
begin 
j:=2*i; 
if j=k then Swap(i,j) 
else 
if j<k>a[j] then 
j:=j+1; 
swap(i,j); 
confic(j,k) 
end 
end; 
Procedure SortTree(i:=Integer); 
begin 
if i <=n div 2 then 
begin 
sortTree(2*i); 
sortTree(2*i+1); 
Confict(i,n) 
end 
end; 
begin 
for i:=1 to n do 
begin 
write ('A(',i,')=') 
readln (a); 
end; 
write('Massiv A :'); 
for i:=1 to n do 
write (a(:5:3,''); 
writeln; 
SortTree(1); 
write ('New massiv A1:'); 
for i:=i to n do 
write (A(:5:3,''); 
readln; 
For k:=n downto 2 do 
begin 
Swap(k,1); 
conflict(1,k-1) 
end; 
write ('New mass A:') 
for i:=1 to n do 
write (a(:5:3,''); 
readln; 
end.

Роман Сидоренко · Accepted Answer

В вопросах по коду должно быть: 
- что хочешь получить; 
- какой код написал (код желательно выкладывать на pastebin.com, а то ответы едят код) ; 
- что получается. 
Без этих трех пунктов ответ превращается в угадайку.

Светлана Яковлева · Answer

А что тут конкретно неработает? И что делает эта программа?