Задачи на TurboPascal

Формулировка задачи:

Народ, хелп!! Помогите две задачки решить на Паскаел?? Очень благодарен буду!!! Первая задача: Одномерный символьный массив длиной 300 элементов заполнить из файла, начиная с начала, и распечатать по 60 символов в строке. С помощью процедур сосчитать и распечатать, сколько трех-, шести- и девяти- символьных слов в массиве. 1) Построить процедуру, которая в передаваемом ей исходном массиве заменяет все разделители (символы: ' ', '.',',','-','(',')','"') на единый – точку. 2) Построить процедуру, которая в передаваемом ей массиве определяет количество слов заданной длины (слово – символы между двумя точками.) И вторая задача: Прочитать из текстового файла с данными первые десять чисел в одномерный массив а последующие числа – в двумерный массив (матрицу) 7х6 элементов. Распечатать оба массива. Заменить нулями в матрице те элементы с четной суммой индексов, для которых имеются равные значения в одномерном массиве. Измененную матрицу распечатать.

Решение задачи: «Задачи на TurboPascal»

Листинг программы

var arr:array[1..300] of char;
f:file of char;
i:Integer;
 
begin
    Assign(f,'file.txt');
    Reset(f);
    for i:=1 to 300 do
        Read(f, arr[i]);
    Close(f);
end.

Объяснение кода листинга программы

Объявляются три переменные: массив arr, файл f и целое число i.
В строке Assign(f,'file.txt') указывается имя файла, который будет использоваться в программе.
В строке Reset(f) открывается файл, с которым будет работать программа.
Запускается цикл for, который выполняется от i=1 до i=300.
В каждой итерации цикла считывается один символ из файла и записывается в массив arr.
После окончания цикла файл закрывается командой Close(f).