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

program 10;
uses crt;
var f,g:text;
    nf,ng,s:string;
begin
clrscr;
write('Vvedite put k failu: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
{$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);
rewrite(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.

program 9;
uses crt;
var K,i:integer;
Kod:char;
M:array[1..10] of string[10];
begin
clrscr;
gotoxy(25,1);
writeln('vybor yazuka programirovaniya');
M[1]:=('Pascal ');          {собственно пункты меню}
M[2]:=('Fortran');
M[3]:=('Basic  ');
M[4]:=('C      ');
gotoxy(10,10);
textbackground(7);
textcolor(0);
write(M[1]);
gotoxy(30,10);
textbackground(0);
textcolor(15);
write(M[2]);
gotoxy(50,10);
write(M[3]);
gotoxy(70,10);
write(M[4]);
gotoxy(10,10); K:=1;
while true do
begin
Kod:=readkey;                     {тут как я понял сделано чтоб кнопки букв, которые совпадают с
                                          кодами  стрелок не воспринимались, или что-то типа того}
if Kod=#0 then Kod:=readkey;
case Kod of
#75: begin                   {Стрелка влево}    
     gotoxy(20*K-10,10);
     textbackground(0);
     textcolor(15);
     write(M[K]);
     if K>1 then K:=K-1 else K:=4;
     gotoxy(20*K-10,10);
     textbackground(7);
     textcolor(0);
     write(M[K]);
     end;
#77: begin                   {стрелка вправо}    
     gotoxy(20*K-10,10);
     textbackground(0);
     textcolor(15);
     write(M[K]);
     if K<4 then K:=K+1 else K:=1;
     gotoxy(20*K-10,10);
     textbackground(7);
     textcolor(0);
     write(M[K]);
     end;
#13: begin
     textbackground(0);  {Enter-выбор пункта}
     textcolor(15);
     gotoxy(1,15);
     writeln('Vubran yazuk programirovaniya: ',M[K]);
     end;
#27: begin           {ESC вроде прерывание программы}
     halt;
     end;
end;
end;
end.

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.  // конец программы