Переписать файл со студентами с оценками 2, 3

var
  F1, F2 : Text;
  S : String;
  Len : Integer;
begin
  Assign(F1, '<имя файла 1>');
  Reset(F1);
  Assign(F2, '<имя файла 2>');
  Rewrite(F2);
  
  while not Eof(F1) do begin
    Readln(F1, S);
    Len := Length(S);
    if S[Len] in ['2', '3'] then Writeln(F2, S);
  end;
  
  Close(F1);
  Close(F2);
end.

var
  F1, F2 : Text;
  S, sVal : String;
  i, Len : Integer;
begin
  Assign(F1, '<имя файла 1>');
  Reset(F1);
  Assign(F2, '<имя файла 2>');
  Rewrite(F2);
  
  while not Eof(F1) do begin
    Readln(F1, S);
    Len := Length(S);
    sVal := '';
    for i := Len downto 1 do begin
      if S[i] = ' ' then Break;
      sVal := S[i] + sVal;
    end;
    if (sVal = '20') or (sVal = '30') then Writeln(F2, S);
  end;
  
  Close(F1);
  Close(F2);
end.