Надо переделать код под задание : Найти в текстовом файле все прилагательные и вывести их в отдельный файл

uses crt;
const p: set of char=[' ','.',',',':',';','"','-','(',')','!','?'];
var a: array [1..100] of string;
s,sl,sk: string;
i,j: byte;
begin
write('s='); readln(s);
s:=s+' '; sl:='';
for i:=1 to length(s) do
if not (s[i] in p) then sl:=sl+s[i] else
if length(sl)>0 then
begin
sk:=copy(sl,length(sl)-1,2);
if (sk='ая') or (sk='ое') or (sk='ый') then
begin
inc(j); a[j]:=sl;
end;
sl:='';
end;
if j=0 then writeln('Нет прилагательных') else
begin
writeln('Массив прилагательных: ');
for i:=1 to j do
write(a[i],' ');
end;
readln;
end.

uses crt;
 
const
  p: set of char = [' ', '.', ',', ':', ';', '"', '-', '(', ')', '!', '?'];
 
var
  a: array [1..100] of string;
  s, sl, sk: string;
  i, j: byte;
  f, g: text;
 
begin
  assign(f, 'input.txt');
  reset(f);
  assign(g, 'output.txt');
  rewrite(g);
  while not eof(f) do
  begin
    //  write('s=');
    readln(f, s);
    s := s + ' ';
    sl := '';
    j := 0;
    for i := 1 to length(s) do
      if not (s[i] in p) then 
        sl := sl + s[i] 
      else
      if length(sl) > 0 then
      begin
        sk := copy(sl, length(sl) - 1, 2);
        if (sk = 'ая') or (sk = 'ое') or (sk = 'ый') then
        begin
          inc(j);
          a[j] := sl;
        end;
        sl := '';
      end;
    if j <> 0 then 
    begin
      // writeln('Массив прилагательных: ');
      for i := 1 to j do
        writeln(g, a[i], ' ');
    end;
  end;
  close(f);
  close(g);
end.