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

DarinaHo

Возможно ли создать такую прогу? Опросник - вопросы в определенном порядке, на которые только два ответа да или нет. (Отмечаются галочкой). После того как опросник заполнен формируется текст (отдельным текстовым файлом) исходя из ответов (заранее прописанные для каждого варианта). Помогите, плыыыз. Я в этом совсем новичок. Буду очень благодарна если распишите подробно)
1 ответ

DarinaHo

const
  name = 'result.txt';
  count = 5;
  question : array [1..count] of String = (
    '1 вопрос',
    '2 вопрос',
    '3 вопрос',
    '4 вопрос',
    '5 вопрос'
  );
  response : array [Boolean] of String = ('да', 'нет');
 
var
  answer : array [1..count] of Boolean;
  i, variant : Integer;
  txt : Text;
  
begin
  for i := 1 to count do
    begin
      WriteLn(question[i]);
      Write('1 - да / 0 - нет : '); Read(variant);
      answer[i] := variant = 1;
    end;
  Assign(txt, name);
  Rewrite(txt);
  for i := 1 to count do
    WriteLn(txt, question[i], '  Ответ: ', response[]);
  Close(txt);
end.