Определите методы работы с файлами по их описанию.
Мне надо второе

1)

Режим | Описание

r | Только для чтения.

w | Только для записи. Создаст новый файл, если не найдет с указанным именем.

rb+ | Для чтения и записи

a+ | Откроет для добавления нового содержимого. Создаст новый файл для чтения записи, если не найдет с указанным именем.

2) Записать можно строку в файл с write()

чтение первых n символов файла осуществляется с read(n)

добавляет последовательность строк в файл append()

Метод flush() очищает внутренний буфер.

составим таблицу:

                        | молоко  | лимонад | квас | вода

бутылка |       -          |              +          |      -      |      -

стакан    |          -          |            -           |      -      |      +

кувшин  |          +          |            -            |      -     |      -

банка      |          -            |            -           |      +    |        -

program xxx;

    var i, n : integer;

                      s : real;

                    a : array [1..20] of real;

begin

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива а: ');

  for i: =1 to n do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to n do

        writeln(a[i]);

  s: =0;

  for i: =1 to n do

      if a[i]> 0 then s: =s+a[i];

  writeln('сумма положительных элементов =', s);

  readln

end.