Нужно прокоментировать две программы - Pascal - Ответ 858109

program 10; // Имя программы
uses crt; // Поключаем модуль CRT
var f,g:text;  // объявляем переменные
    nf,ng,s:string; //  объявляем переменные
begin ..начало программы
clrscr;  // очищаем экран, переводим курсор на верхний левый угол(1ая строка, первый столбец)
write('Vvedite put k failu: ');  //  Выводим на экран приглашение ввести путь к файлу
readln(nf); // считываем строку где должен быть указан путь к файлу
nf:=nf+'.txt';  // добавляем .тхт к веденной строке(пр. объявление луше сделатьVVEDITE IMYA FAILA VKLUCHAYA  YUCHAYA PUTZ
assign(f,nf);  // связываем переменную f с файлом
{$I-} reset(f);  {$I+}  //  открываем файл для чтения(предусматриваем чтобы при ошибочном вводе программа не останавилась)
if IOResult <> 0 then 
 begin
  writeLn('File not found: ',nf);
  readln;
  exit;
 end;   //  выводим на экран информацию при не обнаружении файла и заканчиваем программу
  
write('Vvedite novuy put k failu: '); //  Выводим на экран приглашение ввести путь ко второму файлу
readln(ng); // считываем имя файла и путь
ng:=ng+'.txt'; // добавляем .тхт к веденной строке
assign(g,ng);  // связываем переменную g с файлом
rewrite(g); //  очищаем файл связанный с переменной g(если не существует -создается) и открываем для записи
while not eof(f) do  // открываем  первый файл и считываем построчно пока не закончится файл
 begin
  readln(f,s);  //  считываем текущую строку, и переходи на следующу(в первом файле)
  writeln(g,s);  // записываем считанную инфу во второй файл
 end;
close(f);  // закрываем файл
close(g);// закрываем файл
erase(f);  // не помню че делает данная функция)))
write('Fail ',nf,' peremrshen v fail ',ng);  // выводим что Первый файл переписан во второй
readln  //  ждем нажатия Ентер
end.  // конец программы