program MyArrayDemo;

uses
 Forms;

type
 MyArrayType = array[1..5] of Real;

var
 PersonScores: MyArrayType;

begin
 PersonScores[1] := 55.6;
 PersonScores[2] := 79.7;
 PersonScores[3] := 42.2;
 PersonScores[4] := 100.0;
 PersonScores[5] := 34.9;

 Writeln(PersonScores[1]:10:2);
 Writeln(PersonScores[2]:10:2);
 Writeln(PersonScores[3]:10:2);
 Writeln(PersonScores[4]:10:2);
 Writeln(PersonScores[5]:10:2);

 Readln;
end.