Строки, пример 1

{Простейший пример применения строк в Паскале. Программа для ввода имени, фамилии и отчества и записи их в файл.}

program name;
uses crt;

var
f: text; {Объявляем текстовую переменную.}
str: string [50]; {Объявляем строковую переменную.}

begin
clrscr;

assign (f, 'FAM.txt'); {Данный оператор одновременно устанавливает связь между файловой переменной и файлом и генерирует файл, если раньше его не существовало.}
rewrite (f); {Подготавливает файл к записи, при этом всё содержимое уничтожается, файловое окно переносится на начало файла.}

writeln ('Familia'); {Выводит текст на экран.}
readln (str); {Получает информацию с клавиатуры, записывает её в переменную.}
writeln (f, str); {Записывает переменную в файл.}

writeln ('Name');
readln (str);
writeln (f, str);

writeln ('Otchestvo');
readln (str);
writeln (f, str);

reset(f); {Перенос файлового окна на начало файла}

clrscr;

while not eof(f) do {Вывод содержимого на экран при помощи цикла. Цикл выполняется, пока нет конца файла.}
begin
readln (f, str); {Чтение из файла в переменную.}
writeln (str); {Вывод информации из переменной на экран.}
end;

close (f); {Файл закрывается.}
readln;
end.