Ви знаєте що таке тип string, і функції readln, writeln, та assign?

Так, знаю. Writeln - це виведення інформації, readln - введення даних в пам'ять комп'ютера, assing - процедура типу файлу, яка відкриває доступ до файлу.

Дякую за поради. Але з'явилось питання: як зробити, щоб замість x,y,z записувались в файл введені місяці.
program lab_10;
var f1:text;
    st:string;
    x,y,z:string[10];
begin
    writeln('Введіть три місяці послідовно (через пробіл): ');
    readln(x,y,z);   
    assign(f1,'C:\TP\file1.txt');
    rewrite(f1);
    writeln(f1,'x');
    writeln(f1,'y');
    writeln(f1,'z');
    close(f1);
    reset(f1);
    while not EOF (f1) do
    begin
      readln(f1,st);
      writeln(st);
    end;
    close(f1);
end.