написать объяснение к этой программе?

[Casillas1]

program kursova;
type fil=text;
var f1:fil; name:string[35]; txt:string;
begin
write('Vvedite imya faila dlia zapisi teksta>');
readln(name);
writeln;
assign(f1,name);
rewrite(f1);
writeln('Vvedite tekst dlia zapisi (dlia okonchaniia-Enter):');
writeln;
repeat
write(':>');
readln(txt);
writeln(f1,txt);
until txt='';
close(f1);
writeln;
writeln('Vvod okonchen, nagmite Enter.');
readln;
end.

[WorldMaster]

Сообщение от Casillas1

написать объяснение к этой программе

хм... это приказ???

[Casillas1]

Сообщение от WorldMaster

хм... это приказ???

это просьба

[WorldMaster]

program kursova;
type fil=text;
var f1:fil; name:string[35]; txt:string;
begin
write('Vvedite imya faila dlia zapisi teksta>');
readln(name); .. читаем имя файла
writeln;
assign(f1,name); открываем файл
rewrite(f1);   очищаем
writeln('Vvedite tekst dlia zapisi (dlia okonchaniia-Enter):');
writeln;
repeat крутимся  пока энтер не нажат
write(':>');  пишем значок в файл
readln(txt); читаем строку из консоли
writeln(f1,txt);  пишем в файл
until txt='';  пока строка не пуста
close(f1); закрываем файл
writeln;
writeln('Vvod okonchen, nagmite Enter.');
readln; пишем что все готово
end.