Задачи по программированию

Задача 1

type ряд = file of integer;

Описать процедуру p(f,g) от двух файлов типа ряд, которая в

пустой файл f переписывает положительные элементы файла g.

Указание: введите файл g (последний элемент равен 0). Вы-

полните процедуру p(f,g). Распечатайте файл f.

Задача 2

Напишите рекурсивную подпрограмму, которая печатает в

обратном порядке заданную строку.