Year 12s: what will be the first way you research your future options? >>

Need help with my program [FullBub] Delphi 7.

So I'm trying to revise by writing out a Full Bubble program. And i am receiving an error when i run it. The program is mean to take in an amount of integers and order them in value of how great they are. From small to big.

Here is my program
----------------------------------------------------------------------

program Bubattempt;

{$APPTYPE CONSOLE}

uses
SysUtils;

Type fiveholder=Array[1..5] of integer;

var Holder:fiveholder;
Sorted:Boolean;
Swap:Integer;

Procedure Input; Var P:integer;
Begin
Writeln ('Please Enter 5 integer');
For p := 1 to 5 do
Readln (Holder[P]);
end;

Procedure Chec; Var I:Integer;
Begin
Write ('You entered ');
writeln;
For I := 1 to 5 do
Writeln (Holder);
end;

Procedure decide; Var n:integer;
Begin
Repeat
Sorted := true;
For n := 1 to 6 - 1 do
Begin
IF Holder[N] > Holder [N+1]
Then Begin
Sorted := False;
swap := Holder[n+1];
Holder[n+1] := Holder[n];
Holder[n] := swap
end
end;

until Sorted;
end;

Procedure output; Var d:Integer;

Begin

writeln ('The sorted order is');
For d := 1 to 6 do
writeln;
writeln;
writeln;
Writeln (Holder[d]);
readln;
end;

begin
Input;
chec;
decide;
output;
end.
----------------------------------------------------------------------

Untitled.png1.1KB