Перевод кода с С++ на Delphi

[Владимир10101]

Скопировать из файла F1 в файл F2 все строки, начинающиеся на букву «А» и Заканчивающиеся на букву «С», расположенные между строками с номерами N1 и N2.
Определить количество слов в последней строке файла F2.

1. #include <iostream>
   #include <sstream>
   #include <fstream>
   
   long count_words(const std::string &s) {
   std::stringstream stream(s);
   return std:istance(std::istream_iterator <std::string>(stream),
   std::istream_iterator<std::string>( ));
   }
   
   int main() {
   std::ifstream file1("file1.txt");
   if (file1) {
   std:fstream file2("file2.txt");
   int kN1 = 3;
   int kN2 = 13;
   int countLine = 0;
   std::string line;
   std::string lastLine;
   while (std::getline(file1, line)) {
   ++countLine;
   if (countLine >= kN1 && countLine <= kN2) {
   if (line.front() == 'A' && line.back() == 'C') {
   lastLine = line;
   file2 << line << "\n";
   }
   }
   }
   
   std::cout << "count words " << count_words(lastLine) << "\n";
   
   } else {
   std::cerr << "Can't open file ";
   return EXIT_FAILURE;
   }
   
   return EXIT_SUCCESS;
   }