вопрос оБ исходных данных

[giggles]

дано: массив d1...d19
определить: 19
S=Ed[i]
i=10
(извините просто офис на ноуте не установлен)
если S<15,5 , то заменить отрицательное d[i] на d[1]
решение :

Program Z6;
uses crt;
var
d:array [1..19] of real;
i: integer ;
p: text;
S; real;
begin
clrScr ;
assign (p, 'c:\student\nechaeva\JJJ.DAN');
reset(p);
for i:=1 to 19 do read (p, d[i]);
writeln ('s=', S:10:5);
if S<15,5 then for i:=1 to 19 do if d[i]<0 then
writeln ('d=d1' , d[1]:10:5);
end.

проблема в том что нужно вставить строки: "исходные данные" и " новые данные",а так же нарисовать блок схему (циклического вида)
ПРимечание : assign (p, 'c:\student\nechaeva\JJJ.DAN'); -- отдельно созданный файл с 19 случайным числами

Код нужно оформлять по правилам форума. Для этого служит значок "#".
А вот за фразу вроде "памагити" - "ОЧЕНЬ ПРОШУ ПОМОГИТЕ!!))" тема впредь будет моментально удаляться...
Это доступно для понимания?