Имеется текстовый файл, в каждой строке которого 1-ые два знака являются

На каком языке программирования?

паскаль

Эх, только плюсы знаю

На каком языке программирования?

паскаль

Эх, только плюсы знаю

Мысль вот в чем, я не знаю, как на паскале, но на С++ это
include lt; iostream gt;
include lt; fstream gt;
include lt; string gt;
using namespace std;
int main()
fstream f("путькфайлу.txt", ios::in);
string s, r="";
//Пока не конец файла
while(!f.eof())
//Считать еще одну строчку
getline(cin, s);
//К r добавить 1-ый знак
r+=S[0];

//Итог в r
cout lt;lt; r;
f.close();
return 0;