паскаль l помогите доделать задачу по одномерн массиву

[braza]

задача:
1определить накопленную добычу по нефти и воде за данный период эксплуатации отдельно по скважинам,
2распечатать минимальное значение ежемесячного отбора по нефти скважины 1
обозначения мои:
An-добыча нефти по первой скважине
Bv-добыча воды по первой скважине
Cn-добыча нефти по второй скважине
Dv-добыча воды по второй скважине
ps: и если кто знает как вывести в текс докум то добаввте сбда пожалуйста

program prinerpenl;
uses crt;
const n=17;
type mas1= array [1..17] of integer

const An:masl=(здесь 17 любых чисел);
Bv: masl=(здесь 17 любых чисел);
Cn: masl=(здесь 17 любых чисел);
Dv: masl=(здесь 17 любых чисел);

Var d,b : mas1;
I :integer;
Min :integer;

Begin

Min:=maxint;

For i:=l to n do begin
B[i]:=An[i]+Bv[i];
Writeln(‘1u2=’ ,b[i]);
End;

For i:=l to n do begin
d[i]:=Cn[i]+Dv[i];
Writeln(‘3u4=’ ,d[i]);
End;

If B[i]<min then min:=B[i];
Writeln (min);
End.

[-=<[Evklidd]>=-]

для вывод в текстовый документ добавьте в var:
t: text;
а в код:

assign(t,'путь к вашему файлу');
rewrite;
for i:= 1 to n do
write(B[i],' ');
for i:= 1 to n do
write(D[i],' ');
writeln('min = ',min);
close(t);

ЗЫ Незабудьте создать сам текстовый файл и указать к нему путь в функции assign

[eoln]

If B[i]<min then min:=B[i];
Writeln (min);
Так воды или нефти? Али и того и того?
А текст это делается так

var t: text;
...
begin
...
assign(t, имя_файла);
rewrite(t);
for I := 1 to 17 do writeln(t, B[I]);
close(f)
end.

[eoln]

Сообщение от -=<[Evklidd]>=-

для вывод в текстовый документ добавьте в var:
t: text;
а в код:

assign(t,'путь к вашему файлу');
rewrite;
for i:= 1 to n do
write(B[i],' ');
for i:= 1 to n do
write(D[i],' ');
writeln('min = ',min);
close(t);

ЗЫ Незабудьте создать сам текстовый файл и указать к нему путь в функции assign

Не хватает тут параметров - работа не с файлом, а с эраном, да и файл даже не создастся.
Надо rewrite(t, имя_файла);
И когда записываем тоже, во-первых, write(t, B[I]);
А во-вторых не write, а writeln - иначе всё одной строкой пойдёт

[-=<[Evklidd]>=-]

to eoln: да ты прав, просто на паскале давно не работал, да и код прям на форуме писал. А насчет строчки - элементы массива и должны быть написаны в строчку, а то по-твоему 34 строки будет + строка для min
ЗЫ У тя у самого ошибка есть: не close(f), а close(t)

[eoln]

-=<[Evklidd]>=- : На счёт close(t) и close(f) ты прав - опечатка.
Но если делать write(t,... , а не writeln(t,... , то например если исходные данные были числа 5 9 20 45, то как файл читать? Однозначные и двузначные числа путаются, а разделитель в виде пробела искать надо pos(' ',stroka). Куда гораздо проще ни о чём не думая делать writeln, а на экран write - а то строчки на экране кончаться

[braza]

ну с выводом текста я уже разберусь, а вот когда программу напечатал то он не выдает мне ответ - просто чёрный экран. Подскажите что не так в записи у меня

[-=<[Evklidd]>=-]

Полный код в студию пожалста

[eoln]

В моём листинге всё пишется в файл
Пример
write(t, 'hello') - записывается в файл t
write('hello') - записывается на экран
Если надо вывести min на экрат но пиши так

writeln('min znachenie = ',min,' kilogramm')

Т.к. t здесь нет, то всё пойдёт на экран

[braza]

Сообщение от -=<[Evklidd]>=-

Полный код в студию пожалста

program prinerpenl;
uses crt;
const n=17;
type mas1= array [1..17] of integer;

const An :masl=(цифры);
Bv: masl=(цифры);
Cn: masl=(цифры);
Dv: masl=(цифры);

Var d,b : mas;
I :integer;
Min :integer;

Begin

Min:=maxint;

For i:=1 to n do begin
B[i]:=An[i]+Bv[i];
Writeln(‘1u2=’ ,b[i]);
End;

For i:=l to n do begin
d[i]:=Cn[i]+Dv[i];
Writeln(‘3u4=’ ,d[i]);
End;

If B[i]<min then min:=B[i];
Writeln (min);
End.