FreePascal.ru

Спасибо. Все получилось.

Доброе время.
Есть массив записей :

type Resurses=record
Index:byte;
Kol_vo:uint64;
end;

Massive:array[0..255] of Resurses;

Index - содержат значения от 0 до 255; Допустим это ASCII коды.
Kol_vo - содержат различные значения от 1000 до 10000 обозначающие какое количество соответствующих ASCII ...

Спасибо, воспользовался Assign(Output, delete(ExtractFileExt(Path), 1, 1)); , только пришлось разбить ее на несколько строк текста, по другому PascalAbc.net вылетает
с ошибкой.

Вот текст программы, но в результате ее работы создается файл допустим с именем .inc (Безусловно при наличии файла допустим Main.inc в текущей директории).
Кто знает как избавиться от точки, добавить после inc цифру 15 и установить расширение к примеру .doc

Program One;
uses Utils;

type Resurses ...

Спасибо конечно, эти функции мне известны, но к сожалению не удается реализовать это программно, возникают те или иные трудности, то с расширением, то с именем. Если есть возможность, прошу приложить часть кода реализующую данные действия.

Прошу помощи. Как на паскаль написать программу, которая запрашивает ввод имени файла и если файл есть, создает другой файл, причем имя созданного файла - это расширение введенного имени файла+15, а расширение допустим .inc

Например: исходный файл Main.txt, в результате работы программы должен ...