Паскаль. Найти ошибки

Program sun;
Const k=15;
Var
I,n : integer;
A: array[1 ...k] of real;
P:real;
Begin
Writeln (' input n <=15');
Read( n);
For i=1 to n do
Begin
Writeln ( ' input a[',I,']);
Read( a);
End;
For i:=1 to n-1 do
For j:=i to n do
If a>a(j) then
Begin
P:=a
a:=a[j];
a[j]:=P
End;
For i:=1 to n do
Writeln (a:6:3);
End.