Помогите пожалуйста!!! очень нужно!

Program Primer;
var B:array[1..19] of real;
j:integer;
begin
for j:=1 to 19 do readln(B[j]); // или read(B[j]);
for j:=1 to 14 do writeln(B[j]);
end.