Напишите программу на языке Паскаль, которая получает адрес файла и разделяет его на части с использованием

Описание:
В языке Паскаль мы можем использовать функции работы со строками для разделения адреса файла на части с использованием символа ‘/’.

Основная идея программы заключается в следующем:
1. Запросить у пользователя ввод адреса файла.
2. Использовать функцию `Pos` для поиска позиции символа ‘/’ в строке, который указывает на начало следующей части адреса.
3. Использовать функцию `Copy` для выделения каждой части адреса и вывода ее на отдельной строке.
4. Повторять шаги 2 и 3 до тех пор, пока символ ‘/’ не будет найден в строке.

Пример использования:

program SplitAddress;
var
  filePath: string;
  slashIndex: integer;
begin
  writeln('Введите адрес файла: ');
  readln(filePath);

  repeat
    slashIndex := pos('/', filePath);
    writeln(copy(filePath, 1, slashIndex - 1));
    filePath := copy(filePath, slashIndex + 1, length(filePath) - slashIndex);
  until slashIndex = 0;
end.

Совет: Чтобы лучше понять, как работает программа, рекомендуется ввести несколько разных адресов файлов и проследить, как они разделяются на части.

Упражнение: Напишите программу на языке Паскаль, которая получает адрес файла и разделяет его на части с использованием символа ‘.’. Каждая часть должна быть выведена на отдельной строке. Пример: Введите адрес файла: image.png