Как записать слова столбиком в файл? - PascalABC.NET

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

                    Листинг программы
                
 
                        
                          
                    
begin
CLRSCR;
Writeln('Введите название таблицы');
readln(Text);
Writeln('Введите куда программе сохранить файл');
readln(Path);
FullPath:=Path+Text+'.txt';
assign (TextFile,FullPath);
rewrite (TextFile);
while Change<>';;' do
  begin
  read(Change);
  writeln(TextFile,Change); //Ошибка. Как исправить?
  end;
end.

Решение задачи: «Как записать слова столбиком в файл?»

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

var
  sText, Path, FullPath, Change: string;
  TextFile: text;
  Texts: string;
 
begin
  Writeln('Введите название таблицы');
  readln(sText);
  Writeln('Введите куда программе сохранить файл');
  readln(Path);
  FullPath := Path + sText + '.txt';
  assign(TextFile, FullPath);
  rewrite(TextFile);
  while Change <> ';;' do
  begin
    readln(Change);
    writeln(TextFile, Change); // нет ошибки
  end;
  close(textfile);
end.

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

Объявлены переменные: sText, Path, FullPath, Change типа string; TextFile типа text; Texts типа string.
Пользователю предлагается ввести название таблицы.
Пользователю предлагается указать путь, куда сохранить файл.
Формируется полный путь к файлу с помощью конкатенации строк.
Открывается файл с помощью функции assign.
Файл перезаписывается с помощью функции rewrite.
В цикле while считывается каждое изменение из файла.
Каждое изменение записывается в файл с помощью функции writeln.
Цикл продолжается, пока не встретится символ ';;;'.
Файл закрывается с помощью функции close.