Вывести на экран фамилии программистов - Pascal ABC

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

Задание 1: В каждой строке файла записаны фамилия и должность сотрудника. Вывести на экран фамилии программистов. Задание 2: Переписать строки исходного файла в новый файла , при этом каждую строку «перевернуть наоборот».

Решение задачи: «Вывести на экран фамилии программистов»

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

Uses crt;
 
var f:text;
x,i,y:integer;
s,sl,slovo:string;
begin
    Write('Введите слово: ');readln(slovo);
    assign(f,'in.txt');
    reset(f);
    Write('Номера строк содержащих слово "',slovo,'": ');
    While not eof(f) do
    begin
    readln(f,s);
    inc(x);
    s:=s+' ';
    For i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i] else
        begin
        If sl=slovo then begin inc(y); write(x,' | '); end;
        sl:='';
        end;
    end;
    writeln;
    If y=0 then writeln('Слово не найдено .');
    close(f);
end.

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

В начале кода подключается библиотека crt, которая используется для работы с файлами в языке Pascal ABC.
Переменная f инициализируется как текстовый файл, который будет использоваться для чтения и записи данных.
Переменные x, i и y инициализируются как целочисленные значения, которые будут использоваться в дальнейшем в коде.
Переменная s инициализируется как строковое значение, которое будет использоваться для хранения текста.
Переменная sl инициализируется как строковое значение, которое будет использоваться для хранения подстроки.
Строка slovo инициализируется как пустая строка, которая будет использоваться для поиска в тексте.
Далее происходит чтение из файла in.txt. Для этого используется функция readln, которая считывает данные из файла до конца строки и записывает их в переменную s.
Затем происходит проверка на конец файла (не равно eof). Если это условие выполняется, то цикл while продолжается.
Внутри цикла while происходит считывание данных из файла и увеличение значения переменной x.
Далее происходит обработка символов в строке s. Если текущий символ не равен пробелу, то он добавляется в строку sl. Если текущий символ равен пробелу, то выполняется проверка на равенство sl и slovo. Если они равны, то увеличивается значение переменной y и выводится на экран значение переменной x, за которым следует символ |.
После окончания обработки всех символов в строке s, выводится на экран сообщение о том, что слово не найдено, если значение переменной y равно нулю.
В конце кода происходит закрытие файла in.txt с помощью функции close.