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

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 ja[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.