AnIv_1

Var
    SrcFName, DstFName: String;
    SrcFD, DstFD: Text;
    SC: LongInt;
Begin
    {$I-}
    Repeat
      Write('Введите полный путь к файлу (пустой путь - выход): ');
      ReadLn(SrcFName);
      If (SrcFName = '') Then Break;
      Assign(SrcFD, SrcFName);
      Reset(SrcFD);
      If IOResult <> 0 Then Begin
        WriteLn('Невозможно открыть указанный файл. Убедитесь в правильности пути.');
        Continue;
      End;
      Write('Введите полный путь для копирования: ');
      ReadLn(DstFName);
      If (DstFName = '') Then Break;
      Assign(DstFD, DstFName);
      ReWrite(DstFD);
      If IOResult <> 0 Then Begin
        WriteLn('Невозможно создать новый файл. Убедитесь в правильности пути.');
        Continue;
      End;
      While Not EOF(SrcFD) Do Begin
        ReadLn(SrcFD, SrcFName);
        WriteLn(DstFD, SrcFName);
        SC:= SC + 1;
      End;
      WriteLn('Скопировано успешно. Количество строк: ', SC);
      Close(SrcFD);
      Close(DstFD);
      ReadLn;
      Break;
    Until False;
End.