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

var
 s,sn:string;
 f,g:text;
 i: integer;
 begin
 assign(f,'in.txt');
 assign(g,'out.txt');
 reset(f);
 rewrite(g);
 while not (Eof(f)) do
 begin
 readln(f,s);
 sn:='';
 for i:=1 to length(s) do
     sn:=s[i]+sn;
 writeln(g,sn);
 end;
 close(f);
 close(g);
 end.

var
 s,sl,sl1:string;
 f:text;
 i,x: integer;
 begin
 assign(f,'in.txt');
 reset(f);
 Writeln('Фамилии программистов: ');
 while not (Eof(f)) do
 begin
 readln(f,s);
 sl:='';s:=s+' '; sl1:='';
 for i:=1 to length(s) do
     if (s[i]<>' ') then sl:=sl+s[i] else
           begin
           inc(x);
           if x<2 then sl1:=sl else
              begin
              if sl='программист' then write(sl1,', ');
              x:=0;
              sl1:='';
              end;
           sl:='';
           end;
end;
close(f);
end.

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.