Идея вот в чем, я не знаю, как на паскале, но на С++ это
#include
#include
#include
using namespace std;
int main(){
fstream f("путькфайлу.txt", ios::in);
string s, r="";
//Пока не конец файла
while(!f.eof()){
//Считать очередную строку
getline(cin, s);
//К r добавить первый символ
r+=S[0];
}
//Результат в r
cout << r;
f.close();
return 0;
}