Задача по PASCAl. Помогите сделать.

[Waia]

помогите решить задачу

[alex_fcsm]

uses crt;
var i,temp:integer;
    D:array[1..19]of integer;
begin
clrscr;
randomize;
for i:=1 to 19 do
 begin
  d[i]:=random(5)-2;
  write(d[i],' ');
 end;
writeln;
temp:=0;
for i:=10 to 19 do
 temp:=temp+d[i];
writeln('Summa:',temp);
if temp<15.5 then
 for i:=2 to 19 do
   if d[i]<0 then d[i]:=d[1];
 for i:=1 to 19 do
 write(d[i],' ');
end.

[Waia]

можно чтоб загрузка была из внешнего файла

[alex_fcsm]

uses crt;
var i,temp:integer;
    D:array[1..19]of integer;
    f:text;
begin
clrscr;
assign(f,'c:\1.txt');
reset(f);
for i:=1 to 19 do
 begin
  read(f,d[i]);
  write(d[i],' ');
 end;
close(f);
writeln;
temp:=0;
for i:=10 to 19 do
 temp:=temp+d[i];
writeln('Summa:',temp);
if temp<15.5 then
 for i:=2 to 19 do
   if d[i]<0 then d[i]:=d[1];
 for i:=1 to 19 do
 write(d[i],' ');
end.