Получить слово, образованное первыми буквами каждой строки файла - Pascal ABC

Формулировка задачи:

Имеется текстовый файл, в каждой строке которого первые два символа являются буквами. Получить слово, образованное первыми буквами каждой строки.

Решение задачи: «Получить слово, образованное первыми буквами каждой строки файла»

Листинг программы

var
  f: Text;
  s: Byte;
  s1, s2, nam: String;
 
begin
  try
    Assign(f, 'nam.txt');
    Reset(f);
    Writeln('символы:');
    while not Eof(f) do
    begin
      Readln(f, nam);
      s1 := s1 + nam[1];
      s2 := s2 + nam[2];
      Write(Copy(nam, 1, s));
    end;
    Writeln;
    Writeln('слово 1: ');
    Writeln(s1);
    Writeln('слово 2: ');
    Writeln(s2);
    Close(f);
  except
    Writeln('файл не найден');
  end;
end.

Объяснение кода листинга программы

Создается переменная f типа Text, которая будет использоваться для чтения из файла nam.txt.
Создается переменная s типа Byte, которая будет использоваться для хранения суммы первых букв каждой строки.
Создаются две переменные s1 и s2 типа String, которые будут использоваться для хранения первых букв каждой строки.
В блоке while происходит чтение строк из файла nam.txt с помощью функции Readln.
Каждая прочитанная строка сохраняется в переменной nam.
Первая буква каждой строки добавляется к переменной s1, а вторая буква добавляется к переменной s2.
Слово формируется путем копирования первых двух символов из каждой строки и записывается в переменную s.
После окончания цикла while выводится на экран слово, сформированное из первых букв каждой строки.
Если файл nam.txt не найден, выводится сообщение файл не найден.