Помогите найти ошибку, очень важно!!!

[d3lm1kk]

program PAMax;

{$APPTYPE CONSOLE}

uses
SysUtils;

Type Mas = array[1..50] of double;
Function MAX(const Data: mas): double;
Var i: integer;
AMax: double;
begin
AMax:=Data[1];
for i:=2 to 50 do
if Data[i] > AMax then
AMax:=Data[i];
Result:=AMax;
end;
end.

появляется досовское окно и сразу закрывается(((

[AVer]

Допиши ReadLn; перед последним end.
И вообще ты в программе только описал функцию, но в теле ничего не выполняется.

[d3lm1kk]

AVer, ты можешь остальное напечатать, как должно быть, а то че-то у меня ничего не выходит.

[A_r_r_a_y]

ну например во так

program PAMax;

{$APPTYPE CONSOLE}

uses
SysUtils;

Type Mas = array[1..50] of double;
var a:mas;
Function MAX(const Data: mas): double;
Var i: integer;
AMax: double;
begin
AMax:=Data[1];
for i:=2 to 50 do
if Data[i] > AMax then
AMax:=Data[i];
Result:=AMax;
write(result);
readln;
end;
begin
//Заполнить массив а
MAX(a);
end.