Создать текстовый файл - Pascal ABC (247521)

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

Привет всем есть такая задача: нужно написать программу которая сохраняет в тексовый файл запись типа 1;1;1; Товар№1; Товар№1;0 2;2;2; Товар№2; Товар№2;0 и так до 1500 нужно помогите пожалуйста

Решение задачи: «Создать текстовый файл»

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

var f:text;
    i:integer;
begin
assign(f,'tovary.txt');
rewrite(f);
for i:=1 to 1500 do
writeln(f,i:5,i:5,i:5,';  Товар№',i:4,';  Товар№',i:4,' ;0');
close(f);
end.

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

Объявлены две переменные: f и i.
Переменной f присваивается значение 'tovary.txt'.
Переменная i инициализируется значением 1.
Открывается файл с помощью функции assign и rewrite.
Запускается цикл for, который выполняется от i=1 до i=1500.
Внутри цикла выполняется функция writeln, которая записывает данные в файл.
В качестве данных используется переменная i, разделенная пробелами на 5 частей.
После этого записывается текст Товар№ i; Товар№ i; 0.
Закрывается файл с помощью функции close.