Ввод с новой строки в файле - Pascal ABC

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

Помогите пожалуйста! Никак не получается у меня Нужно очень срочно!!! Нужно подправить программу, чтобы она записывала все с новой строки (сейчас программа выводит все в одну строку)

Var
TextFile:text;
a,b,c,str:string;
begin
  str:='';
Assign(TextFile, 'FileText.txt');
ReWrite(TextFile);
  writeln('Г€Г¬ГҐГҐГІГ±Гї Г«ГЁ ГўГ®Г«Г®Г±ГїГ*Г®Г© ГЇГ®ГЄГ°Г®Гў?'); //1
  readln(a);
  writeln('Г„Г*ВёГІ Г¬Г®Г«Г®ГЄГ®?'); //2
  readln(b);
    if (a='Г¤Г*') and (b='Г¤Г*') then begin
    str:='Г€Г¬ГҐГҐГІГ±Гї Г«ГЁ ГўГ®Г«Г®Г±ГїГ*Г®Г© ГЇГ®ГЄГ°Г®Гў?-Г¤Г*,    Г„Г*ВёГІ Г¬Г®Г«Г®ГЄГ®?-Г¤Г*'  ;
    writeln('ГЏГЁГІГ*ГҐГІГ±Гї Г¬ГїГ±Г®Г¬?');//3
    readln(a);
    writeln('Г€Г¬ГҐГҐГІ Г«ГЁ Г®Г±ГІГ°Г»ГҐ Г§ГіГЎГ» ГЁГ«ГЁ ГЄГ®ГЈГІГЁ?'); //4
    readln(b);
      if (a='Г¤Г*') and (b='Г¤Г*') then begin
        str:= str + ',  ГЏГЁГІГ*ГҐГІГ±Гї Г¬ГїГ±Г®Г¬?-Г¤Г*, Г€Г¬ГҐГҐГІ Г«ГЁ Г®Г±ГІГ°Г»ГҐ Г§ГіГЎГ» ГЁГ«ГЁ ГЄГ®ГЈГІГЁ?-Г¤Г*';
        writeln('Г€Г¬ГҐГҐГІ Г¦ГҐГ«ГІГ®-ГЄГ®Г°ГЁГ·Г*ГҐГўГіГѕ Г®ГЄГ°Г*Г±ГЄГі ГЁ ГЇГҐГЈГ¬ГҐГ*ГІ ГІГҐГ¬Г*Г»ГҐ ГЇГ®Г«Г®Г±Г»?');  //7
        readln(a);
        if a='Г¤Г*' then begin
          writeln('ГЋГІГ°ГїГ¤ ГµГЁГ№Г*ГЁГЄГЁ');
          writeln('Г’ГЁГЈГ°');
          str:=str + ' ';
          str:=str + ', Г€Г¬ГҐГҐГІ Г¦ГҐГ«ГІГ®-ГЄГ®Г°ГЁГ·Г*ГҐГўГіГѕ Г®ГЄГ°Г*Г±ГЄГі ГЁ ГЇГҐГЈГ¬ГҐГ*ГІ ГІГҐГ¬Г*Г»ГҐ ГЇГ®Г«Г®Г±Г»?-Г¤Г*,    ГЋГІГ°ГїГ¤ ГµГЁГ№Г*ГЁГЄГЁ, Г’ГЁГЈГ°';
          writeln(str);
          write(TextFile, str);
          close(TextFile);str:=''; exit; end//16
          else begin
          writeln('Г€Г¬ГҐГҐГІ Г¦ГҐГ«ГІГ®-ГЄГ®Г°ГЁГ·Г*ГҐГўГіГѕ Г®ГЄГ°Г*Г±ГЄГі ГЁ ГЇГҐГЈГ¬ГҐГ*ГІ ГІГҐГ¬Г*Г»ГҐ ГЇГїГІГ*Г*?');//8
          readln(a);
            if a='Г¤Г*' then begin writeln('ГЋГІГ°ГїГ¤ ГµГЁГ№Г*ГЁГЄГЁ'); writeln('ГѓГҐГЇГ*Г°Г¤');
            str:=str + ', Г€Г¬ГҐГҐГІ Г¦ГҐГ«ГІГ®-ГЄГ®Г°ГЁГ·Г*ГҐГўГіГѕ Г®ГЄГ°Г*Г±ГЄГі ГЁ ГЇГҐГЈГ¬ГҐГ*ГІ ГІГҐГ¬Г*Г»ГҐ ГЇГїГІГ*Г*?-Г¤Г*, ГЋГІГ°ГїГ¤ ГµГЁГ№Г*ГЁГЄГЁ,ГѓГҐГЇГ*Г°Г¤'; //17
            writeln(str);
            write(TextFile, str);
            close(TextFile);str:='';exit;end
            else begin
              writeln('ГЊГ«ГҐГЄГ®ГЇГЁГІГ*ГѕГ№ГҐГҐ - ГµГЁГ№Г*ГЁГЄ; Г*ГҐГІ ГЇГ®Г¤Г°Г®ГЎГ*Г®Г±ГІГҐГ©');
              str:=str + ', ГЊГ«ГҐГЄГ®ГЇГЁГІГ*ГѕГ№ГҐГҐ - ГµГЁГ№Г*ГЁГЄ; Г*ГҐГІ ГЇГ®Г¤Г°Г®ГЎГ*Г®Г±ГІГҐГ©';
              writeln(str);
              write(TextFile, str);
              close(TextFile); str:='';
              exit; end;
        end;
      end;
  writeln('ГЉГ®ГЇГ»ГІГ* ГҐГ±ГІГј?');//5
  readln(a);
  writeln('Г†ГіГҐГІ Г¦ГўГ*Г·ГЄГі?'); //6
  readln(b);
    if (a='Г¤Г*') and (b='Г¤Г*') then begin
    str:='ГЉГ®ГЇГ»ГІГ* ГҐГ±ГІГј?-Г¤Г*, Г†ГіГҐГІ Г¦ГўГ*Г·ГЄГі?-Г¤Г*';
    writeln('ГЏГҐГЈГ¬ГҐГ*ГІГ*Г»ГҐ ГЇГ®Г«Г®Г±Г»?');//9
    readln(a);
      if a='Г¤Г*' then begin  writeln('ГЋГІГ°ГїГ¤ ГЇГ*Г°Г®Г*Г®ГЄГ®ГЇГ»ГІГ*Г»ГҐ'); writeln('Г‡ГҐГЎГ°Г*');
      str:= str+', ГЏГҐГЈГ¬ГҐГ*ГІГ*Г»ГҐ ГЇГ®Г«Г®Г±Г»?-Г¤Г*, ГЋГІГ°ГїГ¤ ГЇГ*Г°Г®Г*Г®ГЄГ®ГЇГ»ГІГ*Г»ГҐ - Г‡ГҐГЎГ°Г*';
      writeln(str);
      write(TextFile, str);
      close(TextFile);exit; end//19
      else begin
      writeln('Г„Г«ГЁГ*Г*Г»ГҐ Г*Г®ГЈГЁ ГЁ ГёГҐГї?');
      readln(a);
        if a='Г¤Г*' then begin writeln('Г®ГІГ°ГїГ¤ ГЇГ*Г°Г*Г®ГЄГ®ГЇГ»ГІГ*Г»ГҐ'); writeln('Г†ГЁГ°Г*Гґ');
        str:= str+', Г„Г«ГЁГ*Г*Г»ГҐ Г*Г®ГЈГЁ ГЁ ГёГҐГї?-Г¤Г*, ГЋГІГ°ГїГ¤ ГЇГ*Г°Г®Г*Г®ГЄГ®ГЇГ»ГІГ*Г»ГҐ-Г†ГЁГ°Г*Гґ';
        writeln(str);
        write(TextFile, str);
        close(TextFile); str:='';
        exit; end{20}else begin writeln('ГЊГ«ГҐГЄГ®ГЇГЁГІГ*ГѕГ№ГҐГҐ ГЇГ*Г°Г*Г®ГЄГ®ГЇГ»ГІГ*Г®ГҐ; ГЇГ®Г¤Г°Г®ГЎГ*ГҐГҐ Г*ГҐ ГіГ¤Г*Г«Г®Г±Гј');
        str:= str+', ГЊГ«ГҐГЄГ®ГЇГЁГІГ*ГѕГ№ГҐГҐ ГЇГ*Г°Г*Г®ГЄГ®ГЇГ»ГІГ*Г®ГҐ; Г*ГҐГІ ГЇГ®Г¤Г°Г®ГЎГ*Г®Г±ГІГҐГ©';
        writeln(str);
        write(TextFile, str);
        close(TextFile); str:='';
        exit end;//21
        end;
           end
       else begin writeln('ГЊГ«ГҐГЄГ®ГЇГЁГІГ*ГѕГ№ГҐГҐ; Г*ГҐГІ ГЇГ®Г¤Г°Г®ГЎГ*Г®Г±ГІГҐГ©'); exit; end;//22
  end;
  writeln('ГЏГҐГ°ГјГї ГҐГ±ГІГј?');//11
  readln(a);
  writeln('ГЉГ°Г»Г«Гї ГҐГ±ГІГј?'); //12
  readln(b);
    if (a='Г¤Г*') and (b='Г¤Г*') then begin
    str:='ГЏГҐГ°ГјГї ГҐГ±ГІГј?-Г¤Г*, ГЉГ°Г»Г«Гї ГҐГ±ГІГј?-Г¤Г*';
    writeln('Г•Г®Г°Г®ГёГ® Г«ГҐГІГ*ГҐГІ?'); //13
    readln(a);
      if a='Г¤Г*' then begin writeln('ГЉГ«Г*Г±Г± ГЇГІГЁГ¶Г»'); writeln('ГЂГ«ГјГЎГ*ГІГ°Г®Г±');
      str:= str+', Г•Г®Г°Г®ГёГ® Г«ГҐГІГ*ГҐГІ?-Г¤Г*, ГЉГ«Г*Г±Г± ГЇГІГЁГ¶Г»-ГЂГ«ГјГЎГ*ГІГ°Г®Г±';
      exit; end//23
      else begin
      writeln('ГЃГ»Г±ГІГ°Г® ГЎГҐГЈГ*ГҐГІ?'); //14
      readln(a);
        if a='Г¤Г*' then begin writeln('ГЉГ«Г*Г±Г± ГЇГІГЁГ¶Г»'); writeln('Г‘ГІГ°Г*ГіГ±');
        str:= str+',ГЃГ»Г±ГІГ°Г® ГЎГҐГЈГ*ГҐГІ?-Г¤Г*, ГЉГ«Г*Г±Г± ГЇГІГЁГ¶Г»-Г‘ГІГ°Г*ГіГ±';
        writeln(str);
         write(TextFile, str);
        close(TextFile); str:='';
        exit; end;{24}
        writeln('Г€Г¬ГҐГҐГІ Г·ГҐГ°Г*Г®-ГЎГҐГ«Г»Г© Г®ГЄГ°Г*Г±, Г¦ГЁГўГҐГІ Гў ГЂГ*ГІГ*Г°ГЄГІГЁГ¤ГҐ?'); //14
        readln(a);
          if a='Г¤Г*' then begin  writeln('ГЉГ«Г*Г±Г± ГЇГІГЁГ¶Г»');writeln('ГЏГЁГ*ГЈГўГЁГ*');
          str:= str+',Г€Г¬ГҐГҐГІ Г·ГҐГ°Г*Г®-ГЎГҐГ«Г»Г© Г®ГЄГ°Г*Г±, Г¦ГЁГўГҐГІ Гў ГЂГ*ГІГ*Г°ГЄГІГЁГ¤ГҐ?-Г¤Г*, ГЉГ«Г*Г±Г± ГЇГІГЁГ¶Г»-ГЏГЁГ*ГЈГўГЁГ*';
          writeln(str);
          write(TextFile, str);
          close(TextFile); str:='';
          exit;{24}end
          else begin
          writeln(' ГЊГ«ГҐГЄГ®ГЇГЁГІГ*ГѕГ№ГҐГҐ ГЇГІГЁГ¶Г*; Г*ГҐГІ ГЇГ®Г¤Г°Г®ГЎГ*Г®Г±ГІГҐГ©');
          str:= str+',ГЊГ«ГҐГЄГ®ГЇГЁГІГ*ГѕГ№ГҐГҐ ГЇГІГЁГ¶Г*; Г*ГҐГІ ГЇГ®Г¤Г°Г®ГЎГ*Г®Г±ГІГҐГ©';
          writeln(str);
          write(TextFile, str);
          close(TextFile); str:='';
          exit;end;//21
              end;
   end
else begin writeln('ГЌГҐ ГіГ¤Г*Г«Г®Г±Гј ГЄГ«Г*Г±ГЁГґГЁГ¶ГЁГ°Г®ГўГ*ГІГј');exit;
 end;
writeln(str);
write(TextFile, str);
end.

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

textual
                            Листинг программы 
                        
                            +Char(13)+Char(10)+